diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-30 15:42:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-30 15:42:56 (GMT) |
| commit | 64a81406f2649f08e1e61f68a92ef77fc2c31f32 (patch) | |
| tree | 4643e6c67f1d1d2d7f0621d3887353e0ea82cf93 /generic/tclBasic.c | |
| parent | 83409874d9644cc0926e20e01bd7213c07412db5 (diff) | |
| parent | 02e5732cffb9d23e1ea6612ee37c19a88e4891f2 (diff) | |
| download | tcl-64a81406f2649f08e1e61f68a92ef77fc2c31f32.zip tcl-64a81406f2649f08e1e61f68a92ef77fc2c31f32.tar.gz tcl-64a81406f2649f08e1e61f68a92ef77fc2c31f32.tar.bz2 | |
merge (modified) novem-review.
unbreak windows build
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 146247e..4f3b77e 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -431,14 +431,6 @@ TclFinalizeEvaluation(void) *---------------------------------------------------------------------- */ -/* Template for internal Interp structure: the stubTable entry cannot move! */ -typedef struct { - char *dumm1; - Tcl_FreeProc *dummy2; - int dummy3; - const struct TclStubs *stubTable; -} InterpTemplate; - Tcl_Interp * Tcl_CreateInterp(void) { @@ -474,21 +466,6 @@ Tcl_CreateInterp(void) /*NOTREACHED*/ Tcl_Panic("Tcl_CallFrame must not be smaller than CallFrame"); } - if ((void *) tclStubs.tcl_SetObjResult - != (void *)((&(tclStubs.tcl_PkgProvideEx))[235])) { - /*NOTREACHED*/ - Tcl_Panic("Tcl_SetObjResult entry in the stub table must be kept"); - } - if ((void *) tclStubs.tcl_NewStringObj - != (void *)((&(tclStubs.tcl_PkgProvideEx))[56])) { - /*NOTREACHED*/ - Tcl_Panic("Tcl_NewStringObj entry in the stub table must be kept"); - } - if (TclOffset(InterpTemplate, stubTable) - != TclOffset(Interp, stubTable)) { - /*NOTREACHED*/ - Tcl_Panic("stubsTable entry in the Interp structure must be kept"); - } if (cancelTableInitialized == 0) { Tcl_MutexLock(&cancelLock); |