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/tcl.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/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; |