diff options
author | dgp <dgp@users.sourceforge.net> | 2013-06-05 14:50:39 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-06-05 14:50:39 (GMT) |
commit | e8976518be1b4f26d965c08e0229d31ed7bcb101 (patch) | |
tree | 88ac179a6605791afe18c3c0f8ed64d43d9f1417 /generic/tclCompCmds.c | |
parent | 4265e044139d2dd3217a93741524cd31d7d4fa84 (diff) | |
download | tcl-e8976518be1b4f26d965c08e0229d31ed7bcb101.zip tcl-e8976518be1b4f26d965c08e0229d31ed7bcb101.tar.gz tcl-e8976518be1b4f26d965c08e0229d31ed7bcb101.tar.bz2 |
Stack Depth fixups.
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 365e647..10a789e 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -499,6 +499,7 @@ TclCompileBreakCmd( TclCleanupStackForBreakContinue(envPtr, auxPtr); TclAddLoopBreakFixup(envPtr, auxPtr); + TclAdjustStackDepth(1, envPtr); } else { /* * Emit a real break. @@ -510,12 +511,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; } @@ -833,6 +828,7 @@ TclCompileContinueCmd( TclCleanupStackForBreakContinue(envPtr, auxPtr); TclAddLoopContinueFixup(envPtr, auxPtr); + TclAdjustStackDepth(1, envPtr); } else { /* * Emit a real continue. @@ -844,12 +840,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; } |