summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans@users.sourceforge.net <jan.nijtmans>2012-06-19 14:55:42 (GMT)
committernijtmans@users.sourceforge.net <jan.nijtmans>2012-06-19 14:55:42 (GMT)
commit5c2914880236efe928b7168bf43e7ac65c48b45c (patch)
tree8cd7e1d637b5f9d8806ce373b20d70cec072535d
parent9e99bd093bbd05d6c9ce4120b5464dae8fd419b8 (diff)
downloadtcl-5c2914880236efe928b7168bf43e7ac65c48b45c.zip
tcl-5c2914880236efe928b7168bf43e7ac65c48b45c.tar.gz
tcl-5c2914880236efe928b7168bf43e7ac65c48b45c.tar.bz2
Plug memory leak, part of [Bug #3362446]
-rw-r--r--ChangeLog4
-rw-r--r--win/tclWinReg.c2
2 files changed, 6 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 6b9c072..5d4d5b9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2012-06-19 Jan Nijtmans <nijtmans@users.sf.net>
+
+ * win/tclWinReg.c: Plug memory leak, part of [Bug #3362446]
+
2012-06-08 Don Porter <dgp@users.sourceforge.net>
* unix/configure.in: Update autogoo for gettimeofday().
diff --git a/win/tclWinReg.c b/win/tclWinReg.c
index 3960fda..7d50996 100644
--- a/win/tclWinReg.c
+++ b/win/tclWinReg.c
@@ -595,6 +595,8 @@ GetKeyNames(
}
if (result == TCL_OK) {
Tcl_SetObjResult(interp, resultPtr);
+ } else {
+ Tcl_DecrRefCount(resultPtr); /* BUGFIX: Don't leak on failure. */
}
ckfree(buffer);