diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-10-30 04:27:03 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-10-30 04:27:03 (GMT) |
| commit | 5da6b8e3c356a3786e96336ea19a8c4fabcb17fa (patch) | |
| tree | 3e526db88ab7054a18579db74b3132d33d87f30b /generic/tclCompile.c | |
| parent | 61814ba324f4652c444ecb2776f2cf8eb799dac7 (diff) | |
| download | tcl-5da6b8e3c356a3786e96336ea19a8c4fabcb17fa.zip tcl-5da6b8e3c356a3786e96336ea19a8c4fabcb17fa.tar.gz tcl-5da6b8e3c356a3786e96336ea19a8c4fabcb17fa.tar.bz2 | |
New bytecode for linsert
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 2535167..c01ddb8 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -675,8 +675,12 @@ InstructionDesc const tclInstructionTable[] = { /* String Less or equal: push (stknext <= stktop) */ {"strge", 1, -1, 0, {OPERAND_NONE}}, /* String Greater or equal: push (stknext >= stktop) */ - {"lreplace4", 13, INT_MIN, 3, {OPERAND_UINT4, OPERAND_INT4, OPERAND_INT4}}, - /* Stack: ... listobj num_elems first last new1 ... newN => ... newlistobj */ + {"lreplace4", 17, INT_MIN, 4, {OPERAND_UINT4, OPERAND_UINT4, OPERAND_INT4, OPERAND_INT4}}, + /* Operands: number of arguments, end_indicator, firstIdx, lastIdx + * end_indicator: 0 if "end" is treated as index of last element, + * 1 if "end" is position after last element + * firstIdx,lastIdx: range of elements to delete + * Stack: ... listobj new1 ... newN => ... newlistobj */ {NULL, 0, 0, 0, {OPERAND_NONE}} }; |