From a83edfe07c35a66fbcf357a99349c43e103e6d9e Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 10 May 2022 10:18:44 +0000
Subject: Update doc

---
 doc/BoolObj.3    |  4 ++--
 doc/GetInt.3     |  3 +--
 generic/tclGet.c |  6 +++---
 generic/tclObj.c | 30 +++++++++++++++---------------
 4 files changed, 21 insertions(+), 22 deletions(-)

diff --git a/doc/BoolObj.3 b/doc/BoolObj.3
index cc8729e..47a2189 100644
--- a/doc/BoolObj.3
+++ b/doc/BoolObj.3
@@ -88,8 +88,8 @@ performed more efficiently.
 .PP
 \fBTcl_GetBoolFromObj\fR functions almost the same as
 \fBTcl_GetBooleanFromObj\fR, but it has an additional parameter
-\fBflags\fR, which can be used to specify the size of the \fBbool\fR
-variable, and also whether the empty string or NULL is accepted as valid.
+\fBflags\fR, which can be used to specify whether the empty
+string or NULL is accepted as valid.
 .PP
 Note that the routines \fBTcl_GetBooleanFromObj\fR and
 \fBTcl_GetBoolean\fR are not functional equivalents.
diff --git a/doc/GetInt.3 b/doc/GetInt.3
index 62e8f51..f15c12d 100644
--- a/doc/GetInt.3
+++ b/doc/GetInt.3
@@ -109,8 +109,7 @@ are also acceptable.
 .PP
 \fBTcl_GetBool\fR functions almost the same as \fBTcl_GetBoolean\fR,
 but it has an additional parameter \fBflags\fR, which can be used
-to specify the size of the \fBbool\fR variable, and also whether
-the empty string or NULL is accepted as valid.
+to specify whether the empty string or NULL is accepted as valid.
 
 .SH KEYWORDS
 boolean, conversion, double, floating-point, integer
diff --git a/generic/tclGet.c b/generic/tclGet.c
index 9670450..3c458dc 100644
--- a/generic/tclGet.c
+++ b/generic/tclGet.c
@@ -161,10 +161,10 @@ Tcl_GetBoolean(
     int *intPtr)		/* Place to store converted result, which will
 				 * be 0 or 1. */
 {
-    char boolValue;
-    int result = Tcl_GetBool(interp, src, 0, &boolValue);
+    char charValue;
+    int result = Tcl_GetBool(interp, src, 0, &charValue);
     if (intPtr) {
-	*intPtr = boolValue;
+	*intPtr = charValue;
     }
     return result;
 }
diff --git a/generic/tclObj.c b/generic/tclObj.c
index f7d9dfc..ce13638 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -2004,7 +2004,7 @@ Tcl_FreeInternalRep(
  *
  *	This function is normally called when not debugging: i.e., when
  *	TCL_MEM_DEBUG is not defined. It creates a new Tcl_Obj and
- *	initializes it from the argument boolean value. A nonzero "boolValue"
+ *	initializes it from the argument boolean value. A nonzero "intValue"
  *	is coerced to 1.
  *
  *	When TCL_MEM_DEBUG is defined, this function just returns the result
@@ -2025,20 +2025,20 @@ Tcl_FreeInternalRep(
 
 Tcl_Obj *
 Tcl_NewBooleanObj(
-    int boolValue)	/* Boolean used to initialize new object. */
+    int intValue)	/* Boolean used to initialize new object. */
 {
-    return Tcl_DbNewWideIntObj(boolValue!=0, "unknown", 0);
+    return Tcl_DbNewWideIntObj(intValue!=0, "unknown", 0);
 }
 
 #else /* if not TCL_MEM_DEBUG */
 
 Tcl_Obj *
 Tcl_NewBooleanObj(
-    int boolValue)	/* Boolean used to initialize new object. */
+    int intValue)	/* Boolean used to initialize new object. */
 {
     Tcl_Obj *objPtr;
 
-    TclNewIntObj(objPtr, boolValue!=0);
+    TclNewIntObj(objPtr, intValue!=0);
     return objPtr;
 }
 #endif /* TCL_MEM_DEBUG */
@@ -2075,7 +2075,7 @@ Tcl_NewBooleanObj(
 
 Tcl_Obj *
 Tcl_DbNewBooleanObj(
-    int boolValue,	/* Boolean used to initialize new object. */
+    int intValue,	/* Boolean used to initialize new object. */
     const char *file,		/* The name of the source file calling this
 				 * function; used for debugging. */
     int line)			/* Line number in the source file; used for
@@ -2087,7 +2087,7 @@ Tcl_DbNewBooleanObj(
     /* Optimized TclInvalidateStringRep() */
     objPtr->bytes = NULL;
 
-    objPtr->internalRep.wideValue = (boolValue != 0);
+    objPtr->internalRep.wideValue = (intValue != 0);
     objPtr->typePtr = &tclIntType;
     return objPtr;
 }
@@ -2096,11 +2096,11 @@ Tcl_DbNewBooleanObj(
 
 Tcl_Obj *
 Tcl_DbNewBooleanObj(
-    int boolValue,	/* Boolean used to initialize new object. */
+    int intValue,	/* Boolean used to initialize new object. */
     TCL_UNUSED(const char *) /*file*/,
     TCL_UNUSED(int) /*line*/)
 {
-    return Tcl_NewBooleanObj(boolValue);
+    return Tcl_NewBooleanObj(intValue);
 }
 #endif /* TCL_MEM_DEBUG */
 
@@ -2110,7 +2110,7 @@ Tcl_DbNewBooleanObj(
  * Tcl_SetBooleanObj --
  *
  *	Modify an object to be a boolean object and to have the specified
- *	boolean value. A nonzero "boolValue" is coerced to 1.
+ *	boolean value. A nonzero "intValue" is coerced to 1.
  *
  * Results:
  *	None.
@@ -2126,13 +2126,13 @@ Tcl_DbNewBooleanObj(
 void
 Tcl_SetBooleanObj(
     Tcl_Obj *objPtr,	/* Object whose internal rep to init. */
-    int boolValue)	/* Boolean used to set object's value. */
+    int intValue)	/* Boolean used to set object's value. */
 {
     if (Tcl_IsShared(objPtr)) {
 	Tcl_Panic("%s called with shared object", "Tcl_SetBooleanObj");
     }
 
-    TclSetIntObj(objPtr, boolValue!=0);
+    TclSetIntObj(objPtr, intValue!=0);
 }
 #endif /* TCL_NO_DEPRECATED */
 
@@ -2224,10 +2224,10 @@ Tcl_GetBooleanFromObj(
     Tcl_Obj *objPtr,	/* The object from which to get boolean. */
     int *intPtr)	/* Place to store resulting boolean. */
 {
-    char boolValue;
-    int result = Tcl_GetBoolFromObj(interp, objPtr, 0, &boolValue);
+    char charValue;
+    int result = Tcl_GetBoolFromObj(interp, objPtr, 0, &charValue);
     if (intPtr) {
-	*intPtr = boolValue;
+	*intPtr = charValue;
     }
     return result;
 }
-- 
cgit v0.12