diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-11 17:58:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-11 17:58:49 (GMT) |
| commit | d29536641dcd82c9373cc5835f9fd879194620e8 (patch) | |
| tree | 747fde2e493a980348a36995309bfd5addff356d | |
| parent | eee0c67ac8f3ae799c0222a6b0c4ad25c757b7e5 (diff) | |
| download | tcl-d29536641dcd82c9373cc5835f9fd879194620e8.zip tcl-d29536641dcd82c9373cc5835f9fd879194620e8.tar.gz tcl-d29536641dcd82c9373cc5835f9fd879194620e8.tar.bz2 | |
Stack housekeeping repair for last checkin.
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index b9ee1d4..6897b9b 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2005,6 +2005,8 @@ TclCompileThrowCmd( OP1( JUMP_FALSE1, 16); OP4( LIST, 2); OP44( RETURN_IMM, 1, 0); + TclAdjustStackDepth(2, envPtr); + OP( POP); OP( POP); OP( POP); issueErrorForEmptyCode: |