diff options
| author | mig <mig> | 2013-12-06 05:24:07 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-06 05:24:07 (GMT) |
| commit | 2f6378c76cb15fa0e9d096639a7483cb7ea65590 (patch) | |
| tree | 72bbbf92c101d838c551ad5c496c397d35d0352f /generic/tcl.h | |
| parent | b597fec19ecaf09c3bbe1ac8fd012e32c10705d9 (diff) | |
| parent | 39f93d6f377120e8e489f3c1648ffe8e18100db0 (diff) | |
| download | tcl-2f6378c76cb15fa0e9d096639a7483cb7ea65590.zip tcl-2f6378c76cb15fa0e9d096639a7483cb7ea65590.tar.gz tcl-2f6378c76cb15fa0e9d096639a7483cb7ea65590.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; |
