From a1021c091ca031436936956ee854adfeebe12bdd Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Thu, 13 Apr 2023 09:18:53 +0000
Subject: Remove unnecessary reference count bump in Tcl_ReadObjCmd().

---
 generic/tclIOCmd.c | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c
index 0459338..5a766c6 100644
--- a/generic/tclIOCmd.c
+++ b/generic/tclIOCmd.c
@@ -430,7 +430,6 @@ Tcl_ReadObjCmd(
     }
 
     TclNewObj(resultPtr);
-    Tcl_IncrRefCount(resultPtr);
     TclChannelPreserve(chan);
     charactersRead = Tcl_ReadChars(chan, resultPtr, toRead, 0);
     if (charactersRead == TCL_IO_FAILURE) {
@@ -447,7 +446,6 @@ Tcl_ReadObjCmd(
 		    TclGetString(chanObjPtr), Tcl_PosixError(interp)));
 	}
 	TclChannelRelease(chan);
-	Tcl_DecrRefCount(resultPtr);
 	return TCL_ERROR;
     }
 
@@ -466,7 +464,6 @@ Tcl_ReadObjCmd(
     }
     Tcl_SetObjResult(interp, resultPtr);
     TclChannelRelease(chan);
-    Tcl_DecrRefCount(resultPtr);
     return TCL_OK;
 }
 
-- 
cgit v0.12