summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdMZ.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-05-01 20:20:43 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-05-01 20:20:43 (GMT)
commit2ac57a490ebcd5bd43e7f03e705a243ce67ffa37 (patch)
treec0f7a2bd15492655b2c144bcf9fbf2ca1a4a5ddb /generic/tclCmdMZ.c
parent7eeb272ffcc4b50b35d956dc99f614cea2821e33 (diff)
downloadtcl-2ac57a490ebcd5bd43e7f03e705a243ce67ffa37.zip
tcl-2ac57a490ebcd5bd43e7f03e705a243ce67ffa37.tar.gz
tcl-2ac57a490ebcd5bd43e7f03e705a243ce67ffa37.tar.bz2
* generic/tclCmdMZ.c (STR_MAP): When [string map] has a pure dict
map, a missing Tcl_DictObjDone() call led to a memleak. [Bug 1710709]
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r--generic/tclCmdMZ.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index dde42b3..274d8af 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.149 2007/04/20 05:51:10 kennykb Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.150 2007/05/01 20:20:44 dgp Exp $
*/
#include "tclInt.h"
@@ -1887,6 +1887,7 @@ Tcl_StringObjCmd(
for (i=2 ; i<mapElemc ; i+=2) {
Tcl_DictObjNext(&search, mapElemv+i, mapElemv+i+1, &done);
}
+ Tcl_DictObjDone(&search);
} else {
if (Tcl_ListObjGetElements(interp, objv[objc-2],
&mapElemc, &mapElemv) != TCL_OK) {