diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-11 04:12:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-11 04:12:01 (GMT) |
| commit | d86dc18415900f56ffc3591cf7dceb210f3b3c9d (patch) | |
| tree | eba5d7d947f46c558873c174106327b316d219e7 /generic/tclCompCmds.c | |
| parent | 98b5a1b51d301f8712ef1dd7e9a321804d93ba02 (diff) | |
| parent | 879263daeede5edbf8536cab6eba690b9a7cad4a (diff) | |
| download | tcl-d86dc18415900f56ffc3591cf7dceb210f3b3c9d.zip tcl-d86dc18415900f56ffc3591cf7dceb210f3b3c9d.tar.gz tcl-d86dc18415900f56ffc3591cf7dceb210f3b3c9d.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 18295eb..b1faa53 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -2464,7 +2464,7 @@ CompileEachloopCmd( Tcl_Token *tokenPtr, *bodyTokenPtr; unsigned char *jumpPc; JumpFixup jumpFalseFixup; - int jumpBackDist, jumpBackOffset, infoIndex, range, bodyIndex; + int jumpBackDist, jumpBackOffset, infoIndex, range; int numWords, numLists, numVars, loopIndex, tempVar, i, j, code; DefineLineInformation; /* TIP #280 */ @@ -2504,8 +2504,6 @@ CompileEachloopCmd( return TCL_ERROR; } - bodyIndex = i-1; - /* * Allocate storage for the varcList and varvList arrays if necessary. */ @@ -2684,7 +2682,7 @@ CompileEachloopCmd( * Inline compile the loop body. */ - SetLineInformation(bodyIndex); + SetLineInformation(numWords - 1); ExceptionRangeStarts(envPtr, range); CompileBody(envPtr, bodyTokenPtr, interp); ExceptionRangeEnds(envPtr, range); |