diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-20 08:42:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-20 08:42:36 (GMT) |
| commit | d2b1e66352e07f5adca772ea04e970f6573995c8 (patch) | |
| tree | 184bee71f716ff23a33cbc5c7d17129b3ef8c730 | |
| parent | d29d888dc616e6f2815075b28608f5ba03da3fd5 (diff) | |
| download | tcl-d2b1e66352e07f5adca772ea04e970f6573995c8.zip tcl-d2b1e66352e07f5adca772ea04e970f6573995c8.tar.gz tcl-d2b1e66352e07f5adca772ea04e970f6573995c8.tar.bz2 | |
... make it more portable
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 63bc4b8..6ce06fe 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -484,8 +484,8 @@ Tcl_CreateInterp(void) /*NOTREACHED*/ Tcl_Panic("Tcl_NewStringObj entry in the stub table must be kept"); } - if (offsetof(InterpTemplate, stubTable) - != offsetof(Interp, stubTable)) { + if (TclOffset(InterpTemplate, stubTable) + != TclOffset(Interp, stubTable)) { /*NOTREACHED*/ Tcl_Panic("stubsTable entry in the Interp structure must be kept"); } |