diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-20 18:11:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-20 18:11:35 (GMT) |
| commit | 39e314ad912cdbd29ba3e01673b1097b40118f8b (patch) | |
| tree | 8d2cc46c815847369fee10486b2370ab7340257f /generic/tclCompCmds.c | |
| parent | acfb2a50369dae9afcf444519e5d3875812d5a3b (diff) | |
| download | tcl-39e314ad912cdbd29ba3e01673b1097b40118f8b.zip tcl-39e314ad912cdbd29ba3e01673b1097b40118f8b.tar.gz tcl-39e314ad912cdbd29ba3e01673b1097b40118f8b.tar.bz2 | |
And the last bits that need fixing; the code is still less efficient than desired but should now not crash.dkf_loop_exception_range_work
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index c55635a..9c43bfe 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -1675,7 +1675,7 @@ TclCompileDictUpdateCmd( TclEmitInstInt4( INST_DICT_UPDATE_END, dictIndex, envPtr); TclEmitInt4( infoIndex, envPtr); - TclEmitOpcode( INST_RETURN_STK, envPtr); + TclEmitInvoke(envPtr,INST_RETURN_STK); if (TclFixupForwardJumpToHere(envPtr, &jumpFixup, 127)) { Tcl_Panic("TclCompileDictCmd(update): bad jump distance %d", @@ -2033,7 +2033,7 @@ TclCompileDictWithCmd( } else { TclEmitInstInt4( INST_DICT_RECOMBINE_IMM, dictVar, envPtr); } - TclEmitOpcode( INST_RETURN_STK, envPtr); + TclEmitInvoke(envPtr, INST_RETURN_STK); /* * Prepare for the start of the next command. |