From c993263332c1a88c8ba4da7906fd279171ef2253 Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Tue, 13 Apr 2021 22:44:04 +0000
Subject: Remove unnecessary reference counting.

---
 generic/tclBasic.c | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index aa6d203..5ca70d4 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -3684,7 +3684,6 @@ CallCommandTraces(
 	}
     }
     cmdPtr->flags |= CMD_TRACE_ACTIVE;
-    cmdPtr->refCount++;
 
     result = NULL;
     active.nextPtr = iPtr->activeCmdTracePtr;
@@ -3742,9 +3741,6 @@ CallCommandTraces(
      */
 
     cmdPtr->flags &= ~CMD_TRACE_ACTIVE;
-    cmdPtr->refCount--;
-    /* Don't free cmdPtr here, since the caller of CallCommandTraces()
-     * is responsible for that. See Tcl_DeleteCommandFromToken() */
     iPtr->activeCmdTracePtr = active.nextPtr;
     Tcl_Release(iPtr);
     return result;
-- 
cgit v0.12