diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-02-15 09:55:23 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-02-15 09:55:23 (GMT) |
| commit | a2fd1ca8bd651d24606b90b7926544dc4d637cf3 (patch) | |
| tree | b15c9a6a1dc6698b793a231b4172228c9e7f4e4e /generic/tclCompCmds.c | |
| parent | 19c99ddfcbf9ddb9f5dca2a93e412b5663b4f02a (diff) | |
| parent | 5ab653feb0f92621dfa72b70722477353ae22c75 (diff) | |
| download | tcl-sebres_optimized_8_5.zip tcl-sebres_optimized_8_5.tar.gz tcl-sebres_optimized_8_5.tar.bz2 | |
merge bugfixsebres_optimized_8_5
Diffstat (limited to 'generic/tclCompCmds.c')
| -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 1f8bd21..9eb74f5 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -972,7 +972,7 @@ TclCompileDictForCmd( * Compile the loop body itself. It should be stack-neutral. */ - SetLineInformation (4); + SetLineInformation(3); CompileBody(envPtr, bodyTokenPtr, interp); TclEmitOpcode( INST_POP, envPtr); @@ -1172,6 +1172,7 @@ TclCompileDictUpdateCmd( TclEmitInstInt4( INST_BEGIN_CATCH4, range, envPtr); ExceptionRangeStarts(envPtr, range); + SetLineInformation(parsePtr->numWords - 1); CompileBody(envPtr, bodyTokenPtr, interp); ExceptionRangeEnds(envPtr, range); |