diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-12 00:04:27 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-12 00:04:27 (GMT) |
| commit | 6b7dccabf9f9804049494bf42d0b72cf5a3f9a90 (patch) | |
| tree | acd56beb68dac4edf24814f6eec2f01f6805abb5 | |
| parent | b5dfface8d2bbb92709c3ce349d4f101a4354361 (diff) | |
| download | tcl-6b7dccabf9f9804049494bf42d0b72cf5a3f9a90.zip tcl-6b7dccabf9f9804049494bf42d0b72cf5a3f9a90.tar.gz tcl-6b7dccabf9f9804049494bf42d0b72cf5a3f9a90.tar.bz2 | |
Fix implementation of INST_LIST_EXPANDED.
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index afde900..f994ba5 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4443,7 +4443,11 @@ TEBCresume( POP_TAUX_OBJ(); objResultPtr = Tcl_NewListObj(objc, &OBJ_AT_DEPTH(objc-1)); TRACE_WITH_OBJ(("(%u) => ", objc), objResultPtr); - NEXT_INST_V(1, objc, 1); + while (objc--) { + valuePtr = POP_OBJECT(); + TclDecrRefCount(valuePtr); + } + NEXT_INST_F(1, 0, 1); case INST_LIST_LENGTH: valuePtr = OBJ_AT_TOS; |