summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-05-12 00:04:27 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-05-12 00:04:27 (GMT)
commit6b7dccabf9f9804049494bf42d0b72cf5a3f9a90 (patch)
treeacd56beb68dac4edf24814f6eec2f01f6805abb5
parentb5dfface8d2bbb92709c3ce349d4f101a4354361 (diff)
downloadtcl-6b7dccabf9f9804049494bf42d0b72cf5a3f9a90.zip
tcl-6b7dccabf9f9804049494bf42d0b72cf5a3f9a90.tar.gz
tcl-6b7dccabf9f9804049494bf42d0b72cf5a3f9a90.tar.bz2
Fix implementation of INST_LIST_EXPANDED.
-rw-r--r--generic/tclExecute.c6
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;