summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-08-07 01:44:29 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-08-07 01:44:29 (GMT)
commitf11f11f6b5731d7b71eab4558e7fdbdd3b2f98c3 (patch)
treeb1d2f73a0a02e28529da02402e2d6b644c8220d2 /generic
parent48cc4927f6e3bc52ca55b4c366efd3b02987b998 (diff)
downloadtcl-f11f11f6b5731d7b71eab4558e7fdbdd3b2f98c3.zip
tcl-f11f11f6b5731d7b71eab4558e7fdbdd3b2f98c3.tar.gz
tcl-f11f11f6b5731d7b71eab4558e7fdbdd3b2f98c3.tar.bz2
* generic/tclVar.c (TclLookupSimpleVar): Retrieve the number of
locals in the localCache from the CallFrame and not from the Proc which may have been mangled by a (broken?) recompile. Backport from the HEAD.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclVar.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index d2314c5..43f0324 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclVar.c,v 1.160.2.1 2008/07/21 19:38:20 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclVar.c,v 1.160.2.2 2008/08/07 01:44:31 dgp Exp $
*/
#include "tclInt.h"
@@ -1006,8 +1006,7 @@ TclLookupSimpleVar(
}
}
} else { /* Local var: look in frame varFramePtr. */
- Proc *procPtr = varFramePtr->procPtr;
- int localCt = procPtr->numCompiledLocals;
+ int localCt = varFramePtr->numCompiledLocals;
Tcl_Obj **objPtrPtr = &varFramePtr->localCachePtr->varName0;
for (i=0 ; i<localCt ; i++, objPtrPtr++) {