diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclExecute.c | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index a93de79..26d3e04 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -171,8 +171,6 @@ static BuiltinFunc const tclBuiltinFuncTable[] = { typedef struct TEBCdata { ByteCode *codePtr; /* Constant until the BC returns */ /* -----------------------------------------*/ - struct TEBCdata *expanded;/* NULL if unchanged, pointer to the succesor - * if it was expanded */ const unsigned char *pc; /* These fields are used on return TO this */ ptrdiff_t *catchTop; /* this level: they record the state when a */ int cleanup; /* new codePtr was received for NR */ @@ -1961,7 +1959,6 @@ TclNRExecuteByteCode( esPtr->tosPtr = initTosPtr; TD->codePtr = codePtr; - TD->expanded = NULL; TD->pc = codePtr->codeStart; TD->catchTop = initCatchTop; TD->cleanup = 0; @@ -2681,8 +2678,7 @@ TEBCresume( */ esPtr = iPtr->execEnvPtr->execStackPtr; - TD->expanded = (TEBCdata *) (((Tcl_Obj **)TD) + moved); - TD = TD->expanded; + TD = (TEBCdata *) (((Tcl_Obj **)TD) + moved); catchTop += moved; tosPtr += moved; @@ -6408,9 +6404,6 @@ TEBCresume( if (--codePtr->refCount <= 0) { TclCleanupByteCode(codePtr); } - while (TD->expanded) { - TD = TD->expanded; - } TclStackFree(interp, TD); /* free my stack */ return result; |