diff options
author | mig <mig@noemail.net> | 2013-12-05 15:15:23 (GMT) |
---|---|---|
committer | mig <mig@noemail.net> | 2013-12-05 15:15:23 (GMT) |
commit | 68174f293c909db26bf12f037b6884d94a65ff28 (patch) | |
tree | f590bce5f0ef8e6000451e42769ba1c6fe3f4554 /generic/tclCompile.h | |
parent | 867c016e08294bfc8010f9036ab44b52706092c7 (diff) | |
download | tcl-68174f293c909db26bf12f037b6884d94a65ff28.zip tcl-68174f293c909db26bf12f037b6884d94a65ff28.tar.gz tcl-68174f293c909db26bf12f037b6884d94a65ff28.tar.bz2 |
New compiler and bytecodes for foreach and lmap: 70% faster
* speed as measured by http://wiki.tcl.tk/39021: runs in <1/3 the time
the time
* still need to adapt array-set to use this
* assemble.test-16.5 or 16.6 bombs in a purify/symbols build (?)
* removing the old opcodes would force old .tbc files to be recompiled, or
an adaptation of tbcload to rwrite all foreachs
FossilOrigin-Name: 3782af5f5ae58a128d65e6234b256f6358ea6ecf
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 |