summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormig <mig>2011-03-13 12:54:43 (GMT)
committermig <mig>2011-03-13 12:54:43 (GMT)
commit444dc1aa718c0939ea6a941227f67bb39535c044 (patch)
tree2cf4b32a44fb053efe168969f5009d5e9ed3786b
parentde9eaa2261bbda12a5ba8a76ec1a29d28a8b651b (diff)
downloadtcl-444dc1aa718c0939ea6a941227f67bb39535c044.zip
tcl-444dc1aa718c0939ea6a941227f67bb39535c044.tar.gz
tcl-444dc1aa718c0939ea6a941227f67bb39535c044.tar.bz2
remove TD->expanded, not needed now
-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;