summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c9
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;