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/tclCompile.c | |
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/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 3c8e4ef..7cd9796 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -545,6 +545,16 @@ InstructionDesc const tclInstructionTable[] = { /* Drops an element from the auxiliary stack, popping stack elements * until the matching stack depth is reached. */ + /* New foreach implementation */ + {"foreach_start", 5, +2, 1, {OPERAND_AUX4}}, + /* Initialize execution of a foreach loop. Operand is aux data index + * of the ForeachInfo structure for the foreach command. It pushes 2 + * elements which hold runtime params for foreach_step, they are later + * dropped by foreach_end together with the value lists. */ + {"foreach_step", 1, 0, 0, {OPERAND_NONE}}, + /* "Step" or begin next iteration of foreach loop. */ + {"foreach_end", 1, 0, 0, {OPERAND_NONE}}, + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |