diff options
author | dgp <dgp@users.sourceforge.net> | 2017-10-13 16:15:52 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-10-13 16:15:52 (GMT) |
commit | 921ef734b9c1affe2176fcfa3bf6598eccc9177e (patch) | |
tree | b339801c198c8bcece5014056af6d3ee2cab2560 /generic/tclDictObj.c | |
parent | bed434839470d562507268c6d2f9396a094c7146 (diff) | |
download | tcl-921ef734b9c1affe2176fcfa3bf6598eccc9177e.zip tcl-921ef734b9c1affe2176fcfa3bf6598eccc9177e.tar.gz tcl-921ef734b9c1affe2176fcfa3bf6598eccc9177e.tar.bz2 |
Plug some memleaks.
Diffstat (limited to 'generic/tclDictObj.c')
-rw-r--r-- | generic/tclDictObj.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index c82f88a..1c74c5f 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -2331,7 +2331,9 @@ DictAppendCmd( valuePtr = Tcl_DuplicateObj(valuePtr); } + Tcl_IncrRefCount(appendObjPtr); Tcl_AppendObjToObj(valuePtr, appendObjPtr); + Tcl_DecrRefCount(appendObjPtr); } Tcl_DictObjPut(NULL, dictPtr, objv[2], valuePtr); |