diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-22 20:27:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-22 20:27:59 (GMT) |
| commit | 421cb095720c641b6cef201242354a338207d3c3 (patch) | |
| tree | 376b30b6fcfff8ed2d90f77837b5018081403808 /generic/tclVar.c | |
| parent | 18b04fd803de5db258180ee7d4d4d128a77fb03d (diff) | |
| parent | 91e311e52d7fd08f0eb70ddd211e5aa51a5e2d22 (diff) | |
| download | tcl-421cb095720c641b6cef201242354a338207d3c3.zip tcl-421cb095720c641b6cef201242354a338207d3c3.tar.gz tcl-421cb095720c641b6cef201242354a338207d3c3.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 4694cd8..5e3157e 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -1958,6 +1958,9 @@ TclPtrSetVar( Tcl_IncrRefCount(oldValuePtr); /* Since var is ref */ } Tcl_AppendObjToObj(oldValuePtr, newValuePtr); + if (newValuePtr->refCount == 0) { + Tcl_DecrRefCount(newValuePtr); + } } } } else if (newValuePtr != oldValuePtr) { |