diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-18 07:08:46 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-18 07:08:46 (GMT) |
| commit | c00bdffb6aa0fca3575ef0ab1a07813f696f1839 (patch) | |
| tree | f8d33120c8c5b9c348641830fbb900eff86cd578 /generic/tclCompCmds.c | |
| parent | 21e6601f4971f249f7681508432b98605729fb9d (diff) | |
| download | tcl-c00bdffb6aa0fca3575ef0ab1a07813f696f1839.zip tcl-c00bdffb6aa0fca3575ef0ab1a07813f696f1839.tar.gz tcl-c00bdffb6aa0fca3575ef0ab1a07813f696f1839.tar.bz2 | |
Tackle evalStk by reusing existing machinery.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 942d74c..25201eb 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -620,7 +620,7 @@ TclCompileCatchCmd( TclEmitInstInt4( INST_BEGIN_CATCH4, range, envPtr); ExceptionRangeStarts(envPtr, range); TclEmitOpcode( INST_DUP, envPtr); - TclEmitOpcode( INST_EVAL_STK, envPtr); + TclEmitInvoke(envPtr, INST_EVAL_STK); } /* Stack at this point: * nonsimple: script <mark> result |