diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-08 09:02:50 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-08 09:02:50 (GMT) |
| commit | 784987f7c11d9990ed7e2db04d85d42f177bdefd (patch) | |
| tree | 597e46323b2e5e99c4ce5b7637219be985773d6b /generic/tclCompExpr.c | |
| parent | fb703e49177297d9c7ae9c6eb5bdaefe338838b2 (diff) | |
| download | tcl-784987f7c11d9990ed7e2db04d85d42f177bdefd.zip tcl-784987f7c11d9990ed7e2db04d85d42f177bdefd.tar.gz tcl-784987f7c11d9990ed7e2db04d85d42f177bdefd.tar.bz2 | |
Working towards better handling of stack balance with break and continue exceptions.
Diffstat (limited to 'generic/tclCompExpr.c')
| -rw-r--r-- | generic/tclCompExpr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index d8e4d9f..94c1bd6 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -2335,9 +2335,9 @@ CompileExprTree( */ if (numWords < 255) { - TclEmitInstInt1(INST_INVOKE_STK1, numWords, envPtr); + TclEmitInvoke(envPtr, INST_INVOKE_STK1, numWords); } else { - TclEmitInstInt4(INST_INVOKE_STK4, numWords, envPtr); + TclEmitInvoke(envPtr, INST_INVOKE_STK4, numWords); } /* |