diff options
| author | mig <mig> | 2011-03-13 12:54:43 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-03-13 12:54:43 (GMT) |
| commit | 444dc1aa718c0939ea6a941227f67bb39535c044 (patch) | |
| tree | 2cf4b32a44fb053efe168969f5009d5e9ed3786b /generic/tclExecute.c | |
| parent | de9eaa2261bbda12a5ba8a76ec1a29d28a8b651b (diff) | |
| download | tcl-444dc1aa718c0939ea6a941227f67bb39535c044.zip tcl-444dc1aa718c0939ea6a941227f67bb39535c044.tar.gz tcl-444dc1aa718c0939ea6a941227f67bb39535c044.tar.bz2 | |
remove TD->expanded, not needed now
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; |