diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-14 16:51:49 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-14 16:51:49 (GMT) |
| commit | 271b5469d26171f90501fd3dc1eea1bf2bd83b08 (patch) | |
| tree | 390fd760e66cc765b1400f22af69dc5ef2a00f66 /generic/tclCompCmdsSZ.c | |
| parent | bbf5dede141290a90faaa2bbf2e8abba59d33c04 (diff) | |
| parent | 7e17c358eb7a149fbec81f4c2e5d1adefcc90bdd (diff) | |
| download | tcl-271b5469d26171f90501fd3dc1eea1bf2bd83b08.zip tcl-271b5469d26171f90501fd3dc1eea1bf2bd83b08.tar.gz tcl-271b5469d26171f90501fd3dc1eea1bf2bd83b08.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index c03ddcf..2b83fd2 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2095,7 +2095,7 @@ IssueSwitchChainedTests( */ if (TclReToGlob(NULL, bodyToken[i]->start, - bodyToken[i]->size, &ds, &exact) == TCL_OK) { + bodyToken[i]->size, &ds, &exact, NULL) == TCL_OK){ simple = 1; PushLiteral(envPtr, Tcl_DStringValue(&ds), Tcl_DStringLength(&ds)); @@ -3068,6 +3068,7 @@ IssueTryClausesInstructions( if (!handlerTokens[i]) { forwardsNeedFixing = 1; JUMP4( JUMP, forwardsToFix[i]); + TclAdjustStackDepth(1, envPtr); } else { int dontChangeOptions; |