diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-29 09:24:59 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-29 09:24:59 (GMT) |
commit | cdb98035ab3e41aa6ce5ae01e6c7a9ba0f26f4a7 (patch) | |
tree | e726f3006d835bb9ed3d8412802a0d1ebc2b43ff | |
parent | 25684743a9629d0b8645c505a6856cc7e2bc9180 (diff) | |
parent | 65dc2244087c3473d889b21b73fa53fb552da528 (diff) | |
download | tcl-cdb98035ab3e41aa6ce5ae01e6c7a9ba0f26f4a7.zip tcl-cdb98035ab3e41aa6ce5ae01e6c7a9ba0f26f4a7.tar.gz tcl-cdb98035ab3e41aa6ce5ae01e6c7a9ba0f26f4a7.tar.bz2 |
merge trunk
-rw-r--r-- | generic/tclListObj.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 53c3f66..85737d5 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -967,6 +967,10 @@ Tcl_ListObjReplace( if (listRepPtr == NULL) { listRepPtr = AttemptNewList(interp, numRequired, NULL); if (listRepPtr == NULL) { + for (i = 0; i < objc; i++) { + /* See bug 3598580 */ + Tcl_DecrRefCount(objv[i]); + } return TCL_ERROR; } } |