From 48d6b3d84c72484ce405d0c3f3c3c301b2222331 Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Sun, 14 May 2023 08:21:50 +0000
Subject: Rename TclRelaxRefCount() to TclUndoRefCount().

---
 generic/tclExecute.c | 2 +-
 generic/tclInt.h     | 2 +-
 generic/tclObj.c     | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 49f3e8f..4307489 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -4697,7 +4697,7 @@ TEBCresume(
 		) {
 		int code;
 
-		/* increment the refCount of value2Ptr because TclListObjGetElemen may
+		/* increment the refCount of value2Ptr because TclListObjGetElement may
 		 * have just extracted it from a list in the condition for this block.
 		 */
 		Tcl_IncrRefCount(value2Ptr);
diff --git a/generic/tclInt.h b/generic/tclInt.h
index aa97b30..f7f8492 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -3292,7 +3292,7 @@ MODULE_SCOPE void	TclParseInit(Tcl_Interp *interp, const char *string,
 MODULE_SCOPE Tcl_Size	TclParseAllWhiteSpace(const char *src, Tcl_Size numBytes);
 MODULE_SCOPE int	TclProcessReturn(Tcl_Interp *interp,
 			    int code, int level, Tcl_Obj *returnOpts);
-MODULE_SCOPE void 	TclRelaxRefCount(Tcl_Obj *objPtr);
+MODULE_SCOPE void 	TclUndoRefCount(Tcl_Obj *objPtr);
 MODULE_SCOPE int	TclpObjLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
 MODULE_SCOPE Tcl_Obj *	TclpTempFileName(void);
 MODULE_SCOPE Tcl_Obj *  TclpTempFileNameForLibrary(Tcl_Interp *interp,
diff --git a/generic/tclObj.c b/generic/tclObj.c
index 97e262b..2044b7e 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -3725,7 +3725,7 @@ Tcl_DecrRefCount(
 /*
  *----------------------------------------------------------------------
  *
- * TclRelaxRefCount --
+ * TclUndoRefCount --
  *
  *	Decrement the refCount of objPtr without causing it to be freed if it
  *	drops from 1 to 0.  This allows a function increment a refCount but
@@ -3736,7 +3736,7 @@ Tcl_DecrRefCount(
  *----------------------------------------------------------------------
  */
 void
-TclRelaxRefCount(
+TclUndoRefCount(
     Tcl_Obj *objPtr)	/* The object we are releasing a reference to. */
 {
     if (objPtr->refCount > 0) {
-- 
cgit v0.12