diff options
author | Kevin B Kenny <kennykb@acm.org> | 2014-08-02 19:20:06 (GMT) |
---|---|---|
committer | Kevin B Kenny <kennykb@acm.org> | 2014-08-02 19:20:06 (GMT) |
commit | aa2667b729cdd426a12f85f85c165f8e977ab5e8 (patch) | |
tree | 0de29565ab1dc6214ca6ef8e49eae3e7ee11608f /generic/tclCompile.c | |
parent | 0bab3624a993f7a97dbb03c2ed40f7c472055be6 (diff) | |
parent | 9c45b517dca4ac9dce26f5190c38444f5734d948 (diff) | |
download | tcl-aa2667b729cdd426a12f85f85c165f8e977ab5e8.zip tcl-aa2667b729cdd426a12f85f85c165f8e977ab5e8.tar.gz tcl-aa2667b729cdd426a12f85f85c165f8e977ab5e8.tar.bz2 |
merge trunk
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 eaa0f84..3736498 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}} }; |