diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-19 14:11:28 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-19 14:11:28 (GMT) |
| commit | acfb2a50369dae9afcf444519e5d3875812d5a3b (patch) | |
| tree | 35e6d098819ab84951b66bcf5a3f17d2f2b4830e /generic/tclCompCmdsGR.c | |
| parent | 674d5acbcfa7bfb12b407c88bd4bf67ae1b1d0ac (diff) | |
| download | tcl-acfb2a50369dae9afcf444519e5d3875812d5a3b.zip tcl-acfb2a50369dae9afcf444519e5d3875812d5a3b.tar.gz tcl-acfb2a50369dae9afcf444519e5d3875812d5a3b.tar.bz2 | |
Fix handling of 'invokeExpanded' and start to do 'returnStk'.
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 5513b01..fbd370b 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -2367,7 +2367,7 @@ TclCompileReturnCmd( CompileWord(envPtr, optsTokenPtr, interp, 2); CompileWord(envPtr, msgTokenPtr, interp, 3); - TclEmitOpcode(INST_RETURN_STK, envPtr); + TclEmitInvoke(envPtr, INST_RETURN_STK); return TCL_OK; } @@ -2509,7 +2509,7 @@ TclCompileReturnCmd( * Issue the RETURN itself. */ - TclEmitOpcode(INST_RETURN_STK, envPtr); + TclEmitInvoke(envPtr, INST_RETURN_STK); return TCL_OK; } |