summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-06-02 21:32:16 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-06-02 21:32:16 (GMT)
commitc72504b5e8f17039d8438be6e3f41d5b8e2928eb (patch)
tree070e4987e88eb54d8f8200c64ea866eae3120465 /generic
parent77f3ad2fcd5b1383a5a9e38441c20bbb4227fd03 (diff)
downloadtcl-c72504b5e8f17039d8438be6e3f41d5b8e2928eb.zip
tcl-c72504b5e8f17039d8438be6e3f41d5b8e2928eb.tar.gz
tcl-c72504b5e8f17039d8438be6e3f41d5b8e2928eb.tar.bz2
Fix a stack depth calculation.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompCmdsSZ.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c
index 721f59a..7831198 100644
--- a/generic/tclCompCmdsSZ.c
+++ b/generic/tclCompCmdsSZ.c
@@ -1518,7 +1518,7 @@ IssueSwitchChainedTests(
*/
OP( POP);
- envPtr->currStackDepth = savedStackDepth + 1;
+ envPtr->currStackDepth = savedStackDepth;
envPtr->line = bodyLines[i+1]; /* TIP #280 */
envPtr->clNext = bodyContLines[i+1]; /* TIP #280 */
TclCompileCmdWord(interp, bodyToken[i+1], 1, envPtr);