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 | 0932bd5174700a0e8777df3cc1702280cbf63667 (patch) | |
| tree | 184bee71f716ff23a33cbc5c7d17129b3ef8c730 | |
| parent | 16d2acf37e9ad400c2d1f7d08f6cc72f6a004776 (diff) | |
| download | tcl-0932bd5174700a0e8777df3cc1702280cbf63667.zip tcl-0932bd5174700a0e8777df3cc1702280cbf63667.tar.gz tcl-0932bd5174700a0e8777df3cc1702280cbf63667.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"); } |