diff options
author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-06-19 14:55:42 (GMT) |
---|---|---|
committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-06-19 14:55:42 (GMT) |
commit | 5c2914880236efe928b7168bf43e7ac65c48b45c (patch) | |
tree | 8cd7e1d637b5f9d8806ce373b20d70cec072535d | |
parent | 9e99bd093bbd05d6c9ce4120b5464dae8fd419b8 (diff) | |
download | tcl-5c2914880236efe928b7168bf43e7ac65c48b45c.zip tcl-5c2914880236efe928b7168bf43e7ac65c48b45c.tar.gz tcl-5c2914880236efe928b7168bf43e7ac65c48b45c.tar.bz2 |
Plug memory leak, part of [Bug #3362446]
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | win/tclWinReg.c | 2 |
2 files changed, 6 insertions, 0 deletions
@@ -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); |