summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-10-19 12:29:06 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-10-19 12:29:06 (GMT)
commit674d5acbcfa7bfb12b407c88bd4bf67ae1b1d0ac (patch)
tree32671e27296462e992dff12e0ae48c8f0e5ed281 /generic
parent3e798bfe4700fd510a0daf3944429c75596786da (diff)
downloadtcl-674d5acbcfa7bfb12b407c88bd4bf67ae1b1d0ac.zip
tcl-674d5acbcfa7bfb12b407c88bd4bf67ae1b1d0ac.tar.gz
tcl-674d5acbcfa7bfb12b407c88bd4bf67ae1b1d0ac.tar.bz2
Added missing exception range finalize.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompile.c1
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);
}
}