diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-19 14:57:50 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-19 14:57:50 (GMT) |
commit | d3d03e5a92f4d0c8dd8c6233e0efe8fba5b5df7a (patch) | |
tree | f45aa27290e2d133a06589a3a6418e5a28d74fd0 /win/tclWinReg.c | |
parent | 7be161a74fc9ce9553ea87ac267c5b6d6f1e8aee (diff) | |
parent | 8840e390294de5293634c26bcbb2875954a1cb1f (diff) | |
download | tcl-d3d03e5a92f4d0c8dd8c6233e0efe8fba5b5df7a.zip tcl-d3d03e5a92f4d0c8dd8c6233e0efe8fba5b5df7a.tar.gz tcl-d3d03e5a92f4d0c8dd8c6233e0efe8fba5b5df7a.tar.bz2 |
Plug memory leak, part of [Bug #3362446]
Diffstat (limited to 'win/tclWinReg.c')
-rw-r--r-- | win/tclWinReg.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index f2ac367..13216f3 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -671,6 +671,8 @@ GetKeyNames( } if (result == TCL_OK) { Tcl_SetObjResult(interp, resultPtr); + } else { + Tcl_DecrRefCount(resultPtr); /* BUGFIX: Don't leak on failure. */ } ckfree(buffer); |