diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-10-30 03:04:11 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-10-30 03:04:11 (GMT) |
| commit | 61814ba324f4652c444ecb2776f2cf8eb799dac7 (patch) | |
| tree | b285cc910cfc45780b5f374431b7dd4efe9029dc /generic/tclCompile.c | |
| parent | 53f5424bb21daf52a1af250620eada44d5b3bee2 (diff) | |
| download | tcl-61814ba324f4652c444ecb2776f2cf8eb799dac7.zip tcl-61814ba324f4652c444ecb2776f2cf8eb799dac7.tar.gz tcl-61814ba324f4652c444ecb2776f2cf8eb799dac7.tar.bz2 | |
Implement lreplace4 BCC instruction
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 2d22dc1..2535167 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -675,6 +675,8 @@ 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 */ {NULL, 0, 0, 0, {OPERAND_NONE}} }; |