diff options
| author | mig <mig> | 2013-12-06 05:24:07 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-06 05:24:07 (GMT) |
| commit | a630c1dc2232dccafd45cdf3fc7962f25108bf42 (patch) | |
| tree | 72bbbf92c101d838c551ad5c496c397d35d0352f /generic/tclCompile.h | |
| parent | be6ed41db2f292c42a40c9e4da6bbc21884a3b54 (diff) | |
| parent | 53009920c226ade2ef2f7f12b73ee9cc0bcf766b (diff) | |
| download | tcl-a630c1dc2232dccafd45cdf3fc7962f25108bf42.zip tcl-a630c1dc2232dccafd45cdf3fc7962f25108bf42.tar.gz tcl-a630c1dc2232dccafd45cdf3fc7962f25108bf42.tar.bz2 | |
3x speed improvement in foreach, via new compiler and opcodes. The old version remains for old .tbc sake, but is unused in the core.
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index a39e0f1..c4e6222 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -586,8 +586,8 @@ typedef struct ByteCode { #define INST_CONTINUE 66 /* Opcodes 67 to 68 */ -#define INST_FOREACH_START4 67 -#define INST_FOREACH_STEP4 68 +#define INST_FOREACH_START4 67 /* DEPRECATED */ +#define INST_FOREACH_STEP4 68 /* DEPRECATED */ /* Opcodes 69 to 72 */ #define INST_BEGIN_CATCH4 69 @@ -768,8 +768,14 @@ typedef struct ByteCode { #define INST_EXPAND_DROP 165 +/* New foreach implementation */ + +#define INST_FOREACH_START 166 +#define INST_FOREACH_STEP 167 +#define INST_FOREACH_END 168 + /* The last opcode */ -#define LAST_INST_OPCODE 165 +#define LAST_INST_OPCODE 168 /* * Table describing the Tcl bytecode instructions: their name (for displaying |