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 | e65b0210505c7ec941c532e64f378b0c2bbc72ff (patch) | |
tree | e726f3006d835bb9ed3d8412802a0d1ebc2b43ff /generic | |
parent | b5100ee98faeec86fab0f3a532f448e0565cf41d (diff) | |
parent | 0c64074372809648387dba6a96b2f65e7e018aa2 (diff) | |
download | tcl-e65b0210505c7ec941c532e64f378b0c2bbc72ff.zip tcl-e65b0210505c7ec941c532e64f378b0c2bbc72ff.tar.gz tcl-e65b0210505c7ec941c532e64f378b0c2bbc72ff.tar.bz2 |
merge trunk
Diffstat (limited to 'generic')
-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; } } |