diff options
author | mig <mig> | 2013-12-05 15:15:23 (GMT) |
---|---|---|
committer | mig <mig> | 2013-12-05 15:15:23 (GMT) |
commit | 8f8438c53e0a086672a12fec00764d770323caed (patch) | |
tree | 5b0ca7d586fc8f68142490db32103d185b81ac99 /generic/tcl.h | |
parent | be6ed41db2f292c42a40c9e4da6bbc21884a3b54 (diff) | |
download | tcl-8f8438c53e0a086672a12fec00764d770323caed.zip tcl-8f8438c53e0a086672a12fec00764d770323caed.tar.gz tcl-8f8438c53e0a086672a12fec00764d770323caed.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
* 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 recompilation of old .tbc files or adaptation of tbcload
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; |