diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-10-13 16:38:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-10-13 16:38:01 (GMT) |
| commit | 5e8c17ac4e08fdf83c4a2b970cc6de8ec8b0a3d7 (patch) | |
| tree | b95498fb49dab6316cfa590d447100c210bb9af1 /generic/tclDictObj.c | |
| parent | 22ef6f7e0ded688194b908ad36841ec45d718c57 (diff) | |
| parent | 8a910c1a53dec36b9d3dd4b7a378017251c3ef56 (diff) | |
| download | tcl-5e8c17ac4e08fdf83c4a2b970cc6de8ec8b0a3d7.zip tcl-5e8c17ac4e08fdf83c4a2b970cc6de8ec8b0a3d7.tar.gz tcl-5e8c17ac4e08fdf83c4a2b970cc6de8ec8b0a3d7.tar.bz2 | |
merge trunk
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 d0ef59d..b2cf916 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -2359,7 +2359,9 @@ DictAppendCmd( valuePtr = Tcl_DuplicateObj(valuePtr); } + Tcl_IncrRefCount(appendObjPtr); Tcl_AppendObjToObj(valuePtr, appendObjPtr); + Tcl_DecrRefCount(appendObjPtr); } Tcl_DictObjPut(NULL, dictPtr, objv[2], valuePtr); |