diff options
author | kbk <kbk@noemail.net> | 2014-08-02 19:20:06 (GMT) |
---|---|---|
committer | kbk <kbk@noemail.net> | 2014-08-02 19:20:06 (GMT) |
commit | df94c49d841907b3d458fd6861ea7571d16cb4b3 (patch) | |
tree | 0de29565ab1dc6214ca6ef8e49eae3e7ee11608f /generic/tclCompile.c | |
parent | 5f6bd184c7d4d3df7792029713a01fc19d17e1c4 (diff) | |
parent | 6e5cbd48f1d0e9acceabb00880161970ba34df76 (diff) | |
download | tcl-df94c49d841907b3d458fd6861ea7571d16cb4b3.zip tcl-df94c49d841907b3d458fd6861ea7571d16cb4b3.tar.gz tcl-df94c49d841907b3d458fd6861ea7571d16cb4b3.tar.bz2 |
merge trunk
FossilOrigin-Name: 63ed148e71fc4b7c865c904cb51b8e2a4cbbd3b6
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}} }; |