From 07df807261af92ac86e7c48495ebfd1edab57234 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 20 Apr 2025 16:58:24 +0000
Subject: VarHashCreateVar() isn't used in tclExecute.c

---
 generic/tclExecute.c | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 69ec50c..ad09f47 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -155,22 +155,17 @@ typedef struct {
     ((Var *) ((char *)hPtr - offsetof(VarInHash, entry)))
 
 static inline Var *
-VarHashCreateVar(
+VarHashFindVar(
     TclVarHashTable *tablePtr,
-    Tcl_Obj *key,
-    int *newPtr)
+    Tcl_Obj *key)
 {
-    Tcl_HashEntry *hPtr = Tcl_CreateHashEntry(&tablePtr->table,
-	    key, newPtr);
-
+    Tcl_HashEntry *hPtr = Tcl_FindHashEntry(&tablePtr->table,
+	    key);
     if (!hPtr) {
 	return NULL;
     }
     return VarHashGetValue(hPtr);
 }
-
-#define VarHashFindVar(tablePtr, key) \
-    VarHashCreateVar((tablePtr), (key), NULL)
 
 /*
  * The new macro for ending an instruction; note that a reasonable C-optimiser
-- 
cgit v0.12