From 64ccc2dd17d03302d8af81e1d2d67bcd64c44c66 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 5 Oct 2023 15:26:39 +0000
Subject: [PATCH] Remove a few unneeded shadowed variables

---
 generic/itclBuiltin.c  | 2 --
 generic/itclEnsemble.c | 1 -
 generic/itclInfo.c     | 2 +-
 generic/itclMethod.c   | 1 -
 generic/itclObject.c   | 2 +-
 5 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/generic/itclBuiltin.c b/generic/itclBuiltin.c
index 70197530..a5cd06ef 100644
--- a/generic/itclBuiltin.c
+++ b/generic/itclBuiltin.c
@@ -1725,7 +1725,6 @@ ItclUnknownGuts(
     }
     val = NULL;
     if ((idmPtr != NULL) && (idmPtr->icPtr != NULL)) {
-        Tcl_Obj *objPtr;
         /* we cannot use Itcl_GetInstanceVar here as the object is not
          * yet completely built. So use the varNsNamePtr
          */
@@ -2210,7 +2209,6 @@ ItclExtendedConfigure(
     hPtr = Tcl_FindHashEntry(&contextIoPtr->objectDelegatedOptions, (char *)
             objv[1]);
     if (hPtr == NULL) {
-	Tcl_Obj *objPtr;
 	objPtr = Tcl_NewStringObj("*",1);
 	Tcl_IncrRefCount(objPtr);
         /* check if all options are delegated */
diff --git a/generic/itclEnsemble.c b/generic/itclEnsemble.c
index 0c7246ac..f7cf9f17 100644
--- a/generic/itclEnsemble.c
+++ b/generic/itclEnsemble.c
@@ -803,7 +803,6 @@ CreateEnsemble(
      *  command.
      */
     if (parentEnsData == NULL) {
-	Tcl_Obj *unkObjPtr;
 	ensData->cmdPtr = Tcl_CreateEnsemble(interp, ensName,
 		Tcl_GetCurrentNamespace(interp), TCL_ENSEMBLE_PREFIX);
 	hPtr = Tcl_CreateHashEntry(&infoPtr->ensembleInfo->ensembles,
diff --git a/generic/itclInfo.c b/generic/itclInfo.c
index 5050a20d..c6930d57 100644
--- a/generic/itclInfo.c
+++ b/generic/itclInfo.c
@@ -1810,7 +1810,7 @@ Itcl_BiInfoUnknownCmd(
 
     if (usage) {
         /* produce usage message */
-        Tcl_Obj *objPtr = Tcl_NewStringObj(
+        objPtr = Tcl_NewStringObj(
 	        "wrong # args: should be one of...\n", TCL_INDEX_NONE);
         ItclGetInfoUsage(interp, objPtr, (ItclObjectInfo *)clientData, NULL);
 	Tcl_SetObjResult(interp, objPtr);
diff --git a/generic/itclMethod.c b/generic/itclMethod.c
index 1329122e..79ecbc48 100644
--- a/generic/itclMethod.c
+++ b/generic/itclMethod.c
@@ -1999,7 +1999,6 @@ Itcl_InvokeMethodIfExists(
                 if (objc > 0) {
                     if (contextClassPtr->numOptions == 0) {
 			/* check if all options are delegeted */
-			Tcl_Obj *objPtr;
 			objPtr = Tcl_NewStringObj("*", TCL_INDEX_NONE);
 			hPtr = Tcl_FindHashEntry(
 			        &contextClassPtr->delegatedOptions,
diff --git a/generic/itclObject.c b/generic/itclObject.c
index 3dc107d3..fddd2399 100644
--- a/generic/itclObject.c
+++ b/generic/itclObject.c
@@ -637,7 +637,7 @@ ItclCreateObject(
 	}
 
         if (iclsPtr->flags & (ITCL_TYPE|ITCL_WIDGETADAPTOR)) {
-            Tcl_Obj *objPtr = Tcl_NewObj();
+            objPtr = Tcl_NewObj();
             Tcl_GetCommandFullName(interp, ioPtr->accessCmd, objPtr);
             if (iclsPtr->flags & ITCL_WIDGETADAPTOR) {
 	        /* skip over the leading :: */