diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-02 21:32:16 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-02 21:32:16 (GMT) |
| commit | c72504b5e8f17039d8438be6e3f41d5b8e2928eb (patch) | |
| tree | 070e4987e88eb54d8f8200c64ea866eae3120465 /generic/tclCompCmdsSZ.c | |
| parent | 77f3ad2fcd5b1383a5a9e38441c20bbb4227fd03 (diff) | |
| download | tcl-c72504b5e8f17039d8438be6e3f41d5b8e2928eb.zip tcl-c72504b5e8f17039d8438be6e3f41d5b8e2928eb.tar.gz tcl-c72504b5e8f17039d8438be6e3f41d5b8e2928eb.tar.bz2 | |
Fix a stack depth calculation.
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 2 |
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); |