summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-08-06 20:58:48 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-08-06 20:58:48 (GMT)
commit82d70288992628555e6c555719490b7a504fd671 (patch)
tree5421af25ed362cd5e339a5c07cdd4502dd1f409d /generic/tclVar.c
parentd60baf9f3c7b3c74386cd31147650c3a936e4fb2 (diff)
downloadtcl-82d70288992628555e6c555719490b7a504fd671.zip
tcl-82d70288992628555e6c555719490b7a504fd671.tar.gz
tcl-82d70288992628555e6c555719490b7a504fd671.tar.bz2
* generic/tclVar.c (TclLookupSimpleVar): fix bug that the core
could not trigger before TclOO: the number of locals was being read from the Proc, which can under some circumstance be out of sync with the localCache's.
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r--generic/tclVar.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index dd4ac10..f4e1ad3 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.165 2008/07/19 22:50:42 nijtmans Exp $
+ * RCS: @(#) $Id: tclVar.c,v 1.166 2008/08/06 20:58:49 msofer Exp $
*/
#include "tclInt.h"
@@ -997,8 +997,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++) {