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}} }; |