From 89760fbaf8be5c0be83dfa5e84c4011e1a3a697c Mon Sep 17 00:00:00 2001 From: dgp Date: Mon, 3 Jun 2013 22:43:06 +0000 Subject: repair error.test --- generic/tclCompCmdsSZ.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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; /* -- cgit v0.12