diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-12-19 03:31:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-12-19 03:31:09 (GMT) |
| commit | bf940be5ea25aa49bc0daf614c361a74dbf1b012 (patch) | |
| tree | c02c4bdeac20afbf179be9b6b6d3678c86a8c337 | |
| parent | fee272d8e8c4275d53f447cf243b898e9e97f611 (diff) | |
| download | tcl-bf940be5ea25aa49bc0daf614c361a74dbf1b012.zip tcl-bf940be5ea25aa49bc0daf614c361a74dbf1b012.tar.gz tcl-bf940be5ea25aa49bc0daf614c361a74dbf1b012.tar.bz2 | |
Narrow scope of numVars.
| -rw-r--r-- | generic/tclCompCmds.c | 3 |
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; |