diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-06 09:33:14 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-06 09:33:14 (GMT) |
| commit | 54680ce5e2b52b6cb0a10e77a6627ea92369bcd1 (patch) | |
| tree | 20d495c6ada510e44ebce827414ca5d3a114ea76 /generic/tclCompile.c | |
| parent | c92c45037cf894a4599a8b1a8915575a7949dbf0 (diff) | |
| parent | 7631cbda15c13ff69b665f0b71ad20c866c00624 (diff) | |
| download | tcl-54680ce5e2b52b6cb0a10e77a6627ea92369bcd1.zip tcl-54680ce5e2b52b6cb0a10e77a6627ea92369bcd1.tar.gz tcl-54680ce5e2b52b6cb0a10e77a6627ea92369bcd1.tar.bz2 | |
merge trunk
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 48165e6..79c3897 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -579,6 +579,16 @@ InstructionDesc const tclInstructionTable[] = { * the default (extended "C" locale) rules. * Stack: ... string => ... newString */ + /* 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}} }; |