diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-15 10:38:25 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-15 10:38:25 (GMT) |
| commit | 1eacac1aa2e8e1f6a11ad280d4d5ac4774672c81 (patch) | |
| tree | 91f996a24941dbc19754fafc12aa722dfe281445 /generic/tclExecute.c | |
| parent | d7477a9621b19997f770d8df75b8a071704973d0 (diff) | |
| download | tcl-1eacac1aa2e8e1f6a11ad280d4d5ac4774672c81.zip tcl-1eacac1aa2e8e1f6a11ad280d4d5ac4774672c81.tar.gz tcl-1eacac1aa2e8e1f6a11ad280d4d5ac4774672c81.tar.bz2 | |
A better technique for [list {*}blah]. Remove the INST_LIST_EXPANDED opcode (and the complex machinery associated with it) as as it is no longer needed.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index f994ba5..c7817f8 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4437,18 +4437,6 @@ TEBCresume( TRACE_WITH_OBJ(("%u => ", opnd), objResultPtr); NEXT_INST_V(5, opnd, 1); - case INST_LIST_EXPANDED: - CLANG_ASSERT(auxObjList); - objc = CURR_DEPTH - auxObjList->internalRep.ptrAndLongRep.value; - POP_TAUX_OBJ(); - objResultPtr = Tcl_NewListObj(objc, &OBJ_AT_DEPTH(objc-1)); - TRACE_WITH_OBJ(("(%u) => ", objc), objResultPtr); - while (objc--) { - valuePtr = POP_OBJECT(); - TclDecrRefCount(valuePtr); - } - NEXT_INST_F(1, 0, 1); - case INST_LIST_LENGTH: valuePtr = OBJ_AT_TOS; if (TclListObjLength(interp, valuePtr, &length) != TCL_OK) { |