diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-05 20:23:41 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-05 20:23:41 (GMT) |
| commit | 936acef29cdd2e9fce4a278453e2b2150c5b9c96 (patch) | |
| tree | 4ec527b605bb4c5aa939565a8dd5d3108f59492c /generic/tclCompCmds.c | |
| parent | 64edc0ede7a6c7770bc5f152e97aa48674ed6682 (diff) | |
| parent | ad80ea28de240aaa62b0140e919648ac3081d54f (diff) | |
| download | tcl-936acef29cdd2e9fce4a278453e2b2150c5b9c96.zip tcl-936acef29cdd2e9fce4a278453e2b2150c5b9c96.tar.gz tcl-936acef29cdd2e9fce4a278453e2b2150c5b9c96.tar.bz2 | |
merge fixes
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 8cb5fcd..253f9a8 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -499,12 +499,6 @@ TclCompileBreakCmd( TclCleanupStackForBreakContinue(envPtr, auxPtr); TclAddLoopBreakFixup(envPtr, auxPtr); - - /* - * Instructions that raise exceptions don't really have to follow the - * usual stack management rules, but the cleanup code does. - */ - TclAdjustStackDepth(1, envPtr); } else { /* @@ -834,12 +828,6 @@ TclCompileContinueCmd( TclCleanupStackForBreakContinue(envPtr, auxPtr); TclAddLoopContinueFixup(envPtr, auxPtr); - - /* - * Instructions that raise exceptions don't really have to follow the - * usual stack management rules, but the cleanup code does. - */ - TclAdjustStackDepth(1, envPtr); } else { /* |