diff options
| author | dkf <dkf@noemail.net> | 2013-10-19 12:29:06 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2013-10-19 12:29:06 (GMT) |
| commit | c653b0cb3fb6b652086cb28438dbafebb6985983 (patch) | |
| tree | f8b69dab0f64db9444e800426de5bee68c0f0e75 /generic/tclCompile.c | |
| parent | 015d408d00c31126217607c0d4003c7aa376db2c (diff) | |
| download | tcl-c653b0cb3fb6b652086cb28438dbafebb6985983.zip tcl-c653b0cb3fb6b652086cb28438dbafebb6985983.tar.gz tcl-c653b0cb3fb6b652086cb28438dbafebb6985983.tar.bz2 | |
Added missing exception range finalize.
FossilOrigin-Name: 9a368b1f23e02a1ecf26830498a6889098f497ec
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); } } |