diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-03 14:57:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-03 14:57:48 (GMT) |
| commit | 63a81f0f749c1cc9965874146ba78f865ad5393a (patch) | |
| tree | 1ed6907988d96b90ed34453150242be353387802 /generic/tclCompile.c | |
| parent | c1e6cd0aaa9c2dd7116092f431faa5c14f284d0a (diff) | |
| download | tcl-63a81f0f749c1cc9965874146ba78f865ad5393a.zip tcl-63a81f0f749c1cc9965874146ba78f865ad5393a.tar.gz tcl-63a81f0f749c1cc9965874146ba78f865ad5393a.tar.bz2 | |
Next stage of fixing the break/continue generation.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index f2e9329..f8dd504 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -540,6 +540,9 @@ InstructionDesc const tclInstructionTable[] = { * list and pushes that resulting list onto the stack. * Stack: ... list1 list2 => ... [lconcat list1 list2] */ + {"expandDrop", 1, 0, 0, {OPERAND_NONE}}, + /* Drops an element from the auxiliary stack. */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |