diff options
| author | dkf <dkf@noemail.net> | 2013-10-08 09:02:50 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2013-10-08 09:02:50 (GMT) |
| commit | 52e0f26c7a6aed979e7c6364596813213b76bee7 (patch) | |
| tree | 1931eabeec800ecefa7fb9aa4d9ff37928d1ee39 /generic/tclEnsemble.c | |
| parent | c7d847d51f34dbc490a839a088db1bf9aefcf828 (diff) | |
| download | tcl-52e0f26c7a6aed979e7c6364596813213b76bee7.zip tcl-52e0f26c7a6aed979e7c6364596813213b76bee7.tar.gz tcl-52e0f26c7a6aed979e7c6364596813213b76bee7.tar.bz2 | |
Working towards better handling of stack balance with break and continue exceptions.
FossilOrigin-Name: e4d6e9291b9a209e414b573df025680db9b341dd
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index ad11785..9bb7a0c 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -3179,9 +3179,7 @@ CompileToInvokedCommand( * Do the replacing dispatch. */ - TclEmitInstInt4(INST_INVOKE_REPLACE, parsePtr->numWords, envPtr); - TclEmitInt1(numWords+1, envPtr); - TclAdjustStackDepth(-1, envPtr); /* Correction to stack depth calcs. */ + TclEmitInvoke(envPtr, INST_INVOKE_REPLACE, parsePtr->numWords,numWords+1); } /* |