summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-12-19 03:31:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-12-19 03:31:09 (GMT)
commitbf940be5ea25aa49bc0daf614c361a74dbf1b012 (patch)
treec02c4bdeac20afbf179be9b6b6d3678c86a8c337
parentfee272d8e8c4275d53f447cf243b898e9e97f611 (diff)
downloadtcl-bf940be5ea25aa49bc0daf614c361a74dbf1b012.zip
tcl-bf940be5ea25aa49bc0daf614c361a74dbf1b012.tar.gz
tcl-bf940be5ea25aa49bc0daf614c361a74dbf1b012.tar.bz2
Narrow scope of numVars.
-rw-r--r--generic/tclCompCmds.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 002012e..48eafe5 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -1544,7 +1544,7 @@ TclCompileForeachCmd(
unsigned char *jumpPc;
JumpFixup jumpFalseFixup;
int jumpBackDist, jumpBackOffset, infoIndex, range;
- int numWords, numLists, numVars, tempVar, i, j, code = TCL_OK;
+ int numWords, numLists, tempVar, i, j, code = TCL_OK;
int savedStackDepth = envPtr->currStackDepth;
Tcl_Obj *varListObj = NULL;
DefineLineInformation; /* TIP #280 */
@@ -1600,6 +1600,7 @@ TclCompileForeachCmd(
i < numWords-1;
i++, tokenPtr = TokenAfter(tokenPtr)) {
ForeachVarList *varListPtr;
+ int numVars;
if (i%2 != 1) {
continue;