diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-23 18:01:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-23 18:01:36 (GMT) |
| commit | c75e578cb3af78543a31ac6ad4676324c9ce6b6c (patch) | |
| tree | e18a32f1e513f6d58a436fdd21d0d2e1819888eb /generic/tclCompCmds.c | |
| parent | 2a5b3d957c49e6bf38e6db6b5558f7334d8c99cb (diff) | |
| download | tcl-c75e578cb3af78543a31ac6ad4676324c9ce6b6c.zip tcl-c75e578cb3af78543a31ac6ad4676324c9ce6b6c.tar.gz tcl-c75e578cb3af78543a31ac6ad4676324c9ce6b6c.tar.bz2 | |
Stop checking stack depth in [catch] compiler.
Stack depth is checked in compiles of *all* Tcl commands/scripts/bodies
in debug builds already.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 7fe0728..bde6f96 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -544,7 +544,6 @@ TclCompileCatchCmd( JumpFixup jumpFixup; Tcl_Token *cmdTokenPtr, *resultNameTokenPtr, *optsNameTokenPtr; int resultIndex, optsIndex, range; - int initStackDepth = envPtr->currStackDepth; DefineLineInformation; /* TIP #280 */ /* @@ -742,15 +741,6 @@ TclCompileCatchCmd( TclEmitOpcode( INST_POP, envPtr); } - /* - * Result of all this, on either branch, should have been to leave one - * operand -- the return code -- on the stack. - */ - - if (envPtr->currStackDepth != initStackDepth + 1) { - Tcl_Panic("in TclCompileCatchCmd, currStackDepth = %d should be %d", - envPtr->currStackDepth, initStackDepth+1); - } return TCL_OK; } |