From 444dc1aa718c0939ea6a941227f67bb39535c044 Mon Sep 17 00:00:00 2001
From: mig <mig>
Date: Sun, 13 Mar 2011 12:54:43 +0000
Subject: remove TD->expanded, not needed now

---
 generic/tclExecute.c | 9 +--------
 1 file changed, 1 insertion(+), 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;
-- 
cgit v0.12