diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-11 20:38:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-11 20:38:00 (GMT) |
| commit | 9ca9c6da3a55c6358a221f006c6cc846bd8d9922 (patch) | |
| tree | 1ccd7d3634fc387a151f25f772012f52206e4774 /generic/tclCompExpr.c | |
| parent | 236502157da38dfe3835d0daf426c2d2a0664160 (diff) | |
| download | tcl-9ca9c6da3a55c6358a221f006c6cc846bd8d9922.zip tcl-9ca9c6da3a55c6358a221f006c6cc846bd8d9922.tar.gz tcl-9ca9c6da3a55c6358a221f006c6cc846bd8d9922.tar.bz2 | |
Select improvements in stack depth estimates brought over from mig-review.
Mostly these are just simplifications, removing code that wasn't needed.
Some changes make the stack depth estimate more accurate instruction by
instruction.
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; |