summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmdsSZ.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-06-11 17:58:49 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-06-11 17:58:49 (GMT)
commitd29536641dcd82c9373cc5835f9fd879194620e8 (patch)
tree747fde2e493a980348a36995309bfd5addff356d /generic/tclCompCmdsSZ.c
parenteee0c67ac8f3ae799c0222a6b0c4ad25c757b7e5 (diff)
downloadtcl-d29536641dcd82c9373cc5835f9fd879194620e8.zip
tcl-d29536641dcd82c9373cc5835f9fd879194620e8.tar.gz
tcl-d29536641dcd82c9373cc5835f9fd879194620e8.tar.bz2
Stack housekeeping repair for last checkin.
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
-rw-r--r--generic/tclCompCmdsSZ.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c
index b9ee1d4..6897b9b 100644
--- a/generic/tclCompCmdsSZ.c
+++ b/generic/tclCompCmdsSZ.c
@@ -2005,6 +2005,8 @@ TclCompileThrowCmd(
OP1( JUMP_FALSE1, 16);
OP4( LIST, 2);
OP44( RETURN_IMM, 1, 0);
+ TclAdjustStackDepth(2, envPtr);
+ OP( POP);
OP( POP);
OP( POP);
issueErrorForEmptyCode: