diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-19 14:11:28 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-19 14:11:28 (GMT) |
| commit | 9589ae3be62ca4c2b13eef008d7742033b24bb9c (patch) | |
| tree | 35e6d098819ab84951b66bcf5a3f17d2f2b4830e /generic/tclCompCmdsGR.c | |
| parent | ff44b322ec6366278d509fb3cdf75fe97d73fca3 (diff) | |
| download | tcl-9589ae3be62ca4c2b13eef008d7742033b24bb9c.zip tcl-9589ae3be62ca4c2b13eef008d7742033b24bb9c.tar.gz tcl-9589ae3be62ca4c2b13eef008d7742033b24bb9c.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; } |