diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-14 15:17:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-14 15:17:58 (GMT) |
| commit | 5c3b0101a22b87ccbbbf68eb44de15ea44fd86c4 (patch) | |
| tree | 4be4eee6a3603d9e7d0ae8233213269f0a9ef2cc | |
| parent | fed06f2292fc3c741d72cd20ba9690837752c265 (diff) | |
| download | tcl-5c3b0101a22b87ccbbbf68eb44de15ea44fd86c4.zip tcl-5c3b0101a22b87ccbbbf68eb44de15ea44fd86c4.tar.gz tcl-5c3b0101a22b87ccbbbf68eb44de15ea44fd86c4.tar.bz2 | |
Plug memory leak created in recent variable Tcl_ObjType reform.
| -rw-r--r-- | generic/tclVar.c | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index a9bedd7..091baf8 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -577,11 +577,7 @@ TclObjLookupVarEx( } return NULL; } - if ((part2Ptr = part1Ptr->internalRep.twoPtrValue.ptr2)) { - if (createPart2) { - Tcl_IncrRefCount(part2Ptr); - } - } + part2Ptr = part1Ptr->internalRep.twoPtrValue.ptr2; part1Ptr = part1Ptr->internalRep.twoPtrValue.ptr1; typePtr = part1Ptr->typePtr; if (typePtr == &localVarNameType) { @@ -622,9 +618,6 @@ TclObjLookupVarEx( len1 = i; part2Ptr = Tcl_NewStringObj(part2, len2); - if (createPart2) { - Tcl_IncrRefCount(part2Ptr); - } /* * Free the internal rep of the original part1Ptr, now renamed |