diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-11-05 11:49:08 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-11-05 11:49:08 (GMT) |
| commit | c3c5a80a02a02427696394cb0ed1f8adeab1099d (patch) | |
| tree | 2a821319db65ee920a8d0fb027a68ddcb51c903d /generic/tclCompile.h | |
| parent | 6559f4084e844e187198c5471bfd15f19c8dfecc (diff) | |
| parent | d9033672db616bb406894a480e90410666ff4545 (diff) | |
| download | tcl-c3c5a80a02a02427696394cb0ed1f8adeab1099d.zip tcl-c3c5a80a02a02427696394cb0ed1f8adeab1099d.tar.gz tcl-c3c5a80a02a02427696394cb0ed1f8adeab1099d.tar.bz2 | |
Merge 8.7. lreplace4 bcc instruction and FLT_MAX fix
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 30b1819..035edac 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -835,6 +835,8 @@ enum TclInstruction { INST_STR_LE, INST_STR_GE, + INST_LREPLACE4, + /* The last opcode */ LAST_INST_OPCODE }; @@ -1673,6 +1675,12 @@ MODULE_SCOPE int TclPushProcCallFrame(void *clientData, #define TCL_NO_ELEMENT 2 /* Do not push the array element. */ /* + * Flags bits used by lreplace4 instruction + */ +#define TCL_LREPLACE4_END_IS_LAST 1 /* "end" refers to last element */ +#define TCL_LREPLACE4_SINGLE_INDEX 2 /* Second index absent (pure insert) */ + +/* * DTrace probe macros (NOPs if DTrace support is not enabled). */ |