summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-09-10 22:17:21 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-09-10 22:17:21 (GMT)
commitd75135cca196056a72935f75055f30b95e2d81e3 (patch)
tree8cfd6122f896908d6d15672eac7b86987ff352a9 /generic
parenta5dd225e78f02c5e39fdb603b6c43f5d360a03bd (diff)
downloadtcl-d75135cca196056a72935f75055f30b95e2d81e3.zip
tcl-d75135cca196056a72935f75055f30b95e2d81e3.tar.gz
tcl-d75135cca196056a72935f75055f30b95e2d81e3.tar.bz2
[cee90e4e88] Correct error in stack depth checking.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompCmdsSZ.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c
index 28cab1e..ed9c088 100644
--- a/generic/tclCompCmdsSZ.c
+++ b/generic/tclCompCmdsSZ.c
@@ -3038,6 +3038,7 @@ IssueTryClausesInstructions(
if (!handlerTokens[i]) {
forwardsNeedFixing = 1;
JUMP4( JUMP, forwardsToFix[i]);
+ TclAdjustStackDepth(1, envPtr);
} else {
int dontChangeOptions;