From ac8ac73e77b6dd4d81b5ff1d2bc9b5d9dd23e576 Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Tue, 21 Mar 2023 23:55:12 +0000
Subject: Remove unneeded Tcl_IncrRefCount and TclDecrRefCount. TclPtrSetVarIdx
 takes ownership of newValuePtr if its refCount is 0, and either stores or
 frees it.

---
 generic/tclExecute.c | 2 --
 1 file changed, 2 deletions(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 97122b9..a2578e4 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -3444,10 +3444,8 @@ TEBCresume(
 		}
 	    }
 	    DECACHE_STACK_INFO();
-	    Tcl_IncrRefCount(valueToAssign);
 	    objResultPtr = TclPtrSetVarIdx(interp, varPtr, arrayPtr, part1Ptr,
 		    part2Ptr, valueToAssign, TCL_LEAVE_ERR_MSG, opnd);
-	    TclDecrRefCount(valueToAssign);
 	    CACHE_STACK_INFO();
 	    if (!objResultPtr) {
 	    errorInLappendListPtr:
-- 
cgit v0.12