diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-11 21:40:51 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-11 21:40:51 (GMT) |
| commit | b3c4e60c817c71a12c34fe76fe885d7da894f7bf (patch) | |
| tree | b5d9794484df9b70530db129748b9d7fd44041ee /generic/tclCompExpr.c | |
| parent | 6d413075c9b687f662acd3d1f4fcef7e34f386e7 (diff) | |
| parent | 9ca9c6da3a55c6358a221f006c6cc846bd8d9922 (diff) | |
| download | tcl-b3c4e60c817c71a12c34fe76fe885d7da894f7bf.zip tcl-b3c4e60c817c71a12c34fe76fe885d7da894f7bf.tar.gz tcl-b3c4e60c817c71a12c34fe76fe885d7da894f7bf.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCompExpr.c')
| -rw-r--r-- | generic/tclCompExpr.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 3597abe..efdc2b0 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -2401,6 +2401,7 @@ CompileExprTree( (nodePtr->lexeme == AND) ? "1" : "0", 1), envPtr); TclEmitForwardJump(envPtr, TCL_UNCONDITIONAL_JUMP, &jumpPtr->next->next->jump); + TclAdjustStackDepth(-1, envPtr); TclFixupForwardJumpToHere(envPtr, &jumpPtr->next->jump, 127); if (TclFixupForwardJumpToHere(envPtr, &jumpPtr->jump, 127)) { jumpPtr->next->next->jump.codeOffset += 3; |