diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-07-31 08:39:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-07-31 08:39:50 (GMT) |
| commit | 27be6e4e9ada6489a2bb9de775cab72378825b2b (patch) | |
| tree | c2e372443d6b96e908a4db00bc22d4bd54bdf312 /generic/tclCompile.c | |
| parent | 1990c76e8d05fcf48cccabb5d2f1a49c3c99ecd1 (diff) | |
| parent | f10bee2648e7e87c576a1afe761e8525255d3a7a (diff) | |
| download | tcl-robust_async_connect_tests.zip tcl-robust_async_connect_tests.tar.gz tcl-robust_async_connect_tests.tar.bz2 | |
merge trunkrobust_async_connect_tests
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 347e3f0..838b195 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -650,6 +650,19 @@ InstructionDesc const tclInstructionTable[] = { * satisfy the class check (standard definition of "all"). * Stack: ... stringValue => ... boolean */ + {"lappendList", 5, 0, 1, {OPERAND_LVT4}}, + /* Lappend list to scalar variable at op4 in frame. + * Stack: ... list => ... listVarContents */ + {"lappendListArray", 5, -1, 1, {OPERAND_LVT4}}, + /* Lappend list to array element; array at op4. + * Stack: ... elem list => ... listVarContents */ + {"lappendListArrayStk", 1, -2, 0, {OPERAND_NONE}}, + /* Lappend list to array element. + * Stack: ... arrayName elem list => ... listVarContents */ + {"lappendListStk", 1, -1, 0, {OPERAND_NONE}}, + /* Lappend list to general variable. + * Stack: ... varName list => ... listVarContents */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |