diff options
author | mig <mig@noemail.net> | 2011-03-13 12:54:43 (GMT) |
---|---|---|
committer | mig <mig@noemail.net> | 2011-03-13 12:54:43 (GMT) |
commit | b2ed59f22ab6b8d36e99f2033222609ddc7c2154 (patch) | |
tree | 2cf4b32a44fb053efe168969f5009d5e9ed3786b /generic/tclExecute.c | |
parent | 2a9e43e32ad176bb3d8408f583b9d19beaa884ba (diff) | |
download | tcl-b2ed59f22ab6b8d36e99f2033222609ddc7c2154.zip tcl-b2ed59f22ab6b8d36e99f2033222609ddc7c2154.tar.gz tcl-b2ed59f22ab6b8d36e99f2033222609ddc7c2154.tar.bz2 |
remove TD->expanded, not needed now
FossilOrigin-Name: 86417ad2082c3507f7495c3fb21bb42ccd8fd153
Diffstat (limited to 'generic/tclExecute.c')
-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; |