diff options
author | dgp <dgp@users.sourceforge.net> | 2013-06-05 15:24:04 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-06-05 15:24:04 (GMT) |
commit | 0cfe35644bbbf80c6b9051168ea3a1d66f4e553a (patch) | |
tree | bff878ae1eab9c4e3b49693adf2126edf60b978c /generic/tclCompCmds.c | |
parent | a3bcf14641a499784548f9628f4482d238b3591b (diff) | |
parent | dc66944c443e2457cac229a26fb22fcfb8aac10d (diff) | |
download | tcl-mig_review.zip tcl-mig_review.tar.gz tcl-mig_review.tar.bz2 |
merge trunk
mig_review
Fossil has hopelessly fouled up this checkin's
branch history.
Diffstat (limited to 'generic/tclCompCmds.c')
-rw-r--r-- | generic/tclCompCmds.c | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 1c09acb..aea359c 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -519,6 +519,7 @@ TclCompileBreakCmd( TclCleanupStackForBreakContinue(envPtr, auxPtr); TclAddLoopBreakFixup(envPtr, auxPtr); + TclAdjustStackDepth(1, envPtr); } else { /* * Emit a real break. @@ -530,12 +531,6 @@ TclCompileBreakCmd( TclEmitInt4(0, envPtr); } - /* - * Instructions that raise exceptions don't really have to follow the - * usual stack management rules, but the cleanup code does. - */ - - TclAdjustStackDepth(1, envPtr); return TCL_OK; } @@ -857,6 +852,7 @@ TclCompileContinueCmd( TclCleanupStackForBreakContinue(envPtr, auxPtr); TclAddLoopContinueFixup(envPtr, auxPtr); + TclAdjustStackDepth(1, envPtr); } else { /* * Emit a real continue. @@ -868,12 +864,6 @@ TclCompileContinueCmd( TclEmitInt4(0, envPtr); } - /* - * Instructions that raise exceptions don't really have to follow the - * usual stack management rules, but the cleanup code does. - */ - - TclAdjustStackDepth(1, envPtr); return TCL_OK; } |