diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-11-09 13:45:46 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-11-09 13:45:46 (GMT) |
| commit | 973b944b33b10b6644cd90148dd53931ccd7f881 (patch) | |
| tree | 2b8cf91646452a35a6b21feedb59e1ed03fd1770 /generic/tclCompile.c | |
| parent | c8a85bbc05960b91123999e18cdf1c872896dec7 (diff) | |
| parent | e18b1490d5ec61c9b02def910eed94626e6d3231 (diff) | |
| download | tcl-973b944b33b10b6644cd90148dd53931ccd7f881.zip tcl-973b944b33b10b6644cd90148dd53931ccd7f881.tar.gz tcl-973b944b33b10b6644cd90148dd53931ccd7f881.tar.bz2 | |
Merge trunk. Also update Tcl_ObjType.version to match TIP 644
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index fc2b6b7..9708255 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -657,6 +657,13 @@ InstructionDesc const tclInstructionTable[] = { /* String Less or equal: push (stknext <= stktop) */ {"strge", 1, -1, 0, {OPERAND_NONE}}, /* String Greater or equal: push (stknext >= stktop) */ + {"lreplace4", 6, INT_MIN, 2, {OPERAND_UINT4, OPERAND_UINT1}}, + /* Operands: number of arguments, flags + * flags: Combination of TCL_LREPLACE4_* flags + * Stack: ... listobj index1 ?index2? new1 ... newN => ... newlistobj + * where index2 is present only if TCL_LREPLACE_SINGLE_INDEX is not + * set in flags. + */ {NULL, 0, 0, 0, {OPERAND_NONE}} }; |