diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-19 12:29:06 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-19 12:29:06 (GMT) |
| commit | ff44b322ec6366278d509fb3cdf75fe97d73fca3 (patch) | |
| tree | 32671e27296462e992dff12e0ae48c8f0e5ed281 /generic/tclCompile.c | |
| parent | df9fd547396962ef7347fb7ecbf7a33eb3b7325c (diff) | |
| download | tcl-ff44b322ec6366278d509fb3cdf75fe97d73fca3.zip tcl-ff44b322ec6366278d509fb3cdf75fe97d73fca3.tar.gz tcl-ff44b322ec6366278d509fb3cdf75fe97d73fca3.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); } } |