diff options
author | dkf <dkf@noemail.net> | 2013-10-15 00:27:56 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2013-10-15 00:27:56 (GMT) |
commit | e32a18f07743f40bbd14f8812c07dc3dd49c504e (patch) | |
tree | 466bc473e8418f88ba75f7d6abd13340020be374 /generic/tclCompile.c | |
parent | 629ace57c2b7f914ddba75c8bb7731d0e839cba2 (diff) | |
download | tcl-e32a18f07743f40bbd14f8812c07dc3dd49c504e.zip tcl-e32a18f07743f40bbd14f8812c07dc3dd49c504e.tar.gz tcl-e32a18f07743f40bbd14f8812c07dc3dd49c504e.tar.bz2 |
Do jump generation at places where INST_RETURN_IMM might occur.
FossilOrigin-Name: 98717da70ac4138e4cd0b3eee434ee78c0db0b98
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 68b7649..427ccab 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -3931,8 +3931,7 @@ TclEmitInvoke( va_list argList; ExceptionRange *rangePtr; ExceptionAux *auxBreakPtr, *auxContinuePtr; - int arg1, arg2, wordCount = 0, loopRange, predictedDepth; - int breakRange = -1, continueRange = -1; + int arg1, arg2, wordCount = 0, loopRange, breakRange, continueRange; /* * Parse the arguments. @@ -3995,7 +3994,6 @@ TclEmitInvoke( loopRange = TclCreateExceptRange(LOOP_EXCEPTION_RANGE, envPtr); ExceptionRangeStarts(envPtr, loopRange); } - predictedDepth = envPtr->currStackDepth - wordCount; /* * Issue the invoke itself. @@ -4047,7 +4045,6 @@ TclEmitInvoke( if (auxBreakPtr != NULL) { TclAdjustStackDepth(-1, envPtr); - assert(envPtr->currStackDepth == predictedDepth); exceptAux->stackDepth = auxBreakPtr->stackDepth; exceptAux->expandTarget = auxBreakPtr->expandTarget; @@ -4061,7 +4058,6 @@ TclEmitInvoke( if (auxContinuePtr != NULL) { TclAdjustStackDepth(-1, envPtr); - assert(envPtr->currStackDepth == predictedDepth); exceptAux->stackDepth = auxContinuePtr->stackDepth; exceptAux->expandTarget = auxContinuePtr->expandTarget; |