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/tcl.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/tcl.h')
-rw-r--r-- | generic/tcl.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 4bf81cc..aab299e 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -848,6 +848,10 @@ typedef struct Tcl_Obj { void *ptr; unsigned long value; } ptrAndLongRep; + struct { + long int1; + long int2; + } twoIntValue; } internalRep; } Tcl_Obj; |