summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmds.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-07-23 18:01:36 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-07-23 18:01:36 (GMT)
commitc75e578cb3af78543a31ac6ad4676324c9ce6b6c (patch)
treee18a32f1e513f6d58a436fdd21d0d2e1819888eb /generic/tclCompCmds.c
parent2a5b3d957c49e6bf38e6db6b5558f7334d8c99cb (diff)
downloadtcl-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.c10
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;
}