diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-03 22:43:06 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-03 22:43:06 (GMT) |
| commit | 28a8614f5b276169297b7e32ebdbbd429ee6773d (patch) | |
| tree | 809bb78347f2ca9be019465c25381963561239f0 /generic | |
| parent | bc376ba661db1392d487a6482989ff5ed1ee8e9b (diff) | |
| download | tcl-28a8614f5b276169297b7e32ebdbbd429ee6773d.zip tcl-28a8614f5b276169297b7e32ebdbbd429ee6773d.tar.gz tcl-28a8614f5b276169297b7e32ebdbbd429ee6773d.tar.bz2 | |
repair error.test
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 5be5e5b..2ce472b 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2592,7 +2592,12 @@ IssueTryFinallyInstructions( ExceptionRangeEnds(envPtr, range); OP( PUSH_RETURN_OPTIONS); OP4( REVERSE, 2); - OP1( JUMP1, 4); + OP1( JUMP1, 4 +#ifdef TCL_COMPILE_DEBUG ++10 +#endif +); + envPtr->currStackDepth = savedStackDepth + 1; forwardsToFix[i] = -1; /* |