From 35eb3535af4c4a03667bbf2b4fcde538d5e875fe Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 14 Jul 2016 15:17:58 +0000
Subject: Plug memory leak created in recent variable Tcl_ObjType reform.

---
 generic/tclVar.c | 9 +--------
 1 file changed, 1 insertion(+), 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
-- 
cgit v0.12