diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-19 12:29:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-19 12:29:06 (GMT) |
| commit | 674d5acbcfa7bfb12b407c88bd4bf67ae1b1d0ac (patch) | |
| tree | 32671e27296462e992dff12e0ae48c8f0e5ed281 /generic/tclCompile.c | |
| parent | 3e798bfe4700fd510a0daf3944429c75596786da (diff) | |
| download | tcl-674d5acbcfa7bfb12b407c88bd4bf67ae1b1d0ac.zip tcl-674d5acbcfa7bfb12b407c88bd4bf67ae1b1d0ac.tar.gz tcl-674d5acbcfa7bfb12b407c88bd4bf67ae1b1d0ac.tar.bz2 | |
Added missing exception range finalize.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index f91c2fd..89b9011 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -4073,6 +4073,7 @@ TclEmitInvoke( envPtr->expandCount = savedExpandCount; } + TclFinalizeLoopExceptionRange(envPtr, loopRange); TclFixupForwardJumpToHere(envPtr, &nonTrapFixup, 127); } } |