merge 8.6

tcltk · Apr 12, 2024 · 16f110e · 16f110e
2 parents d20f13f + 760a1ef
commit 16f110e
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/generic/tclHash.c b/generic/tclHash.c
@@ -320,13 +320,16 @@ CreateHashEntry(
 		    return hPtr;
 		}
 	    }
-	} else { /* no direct compare */
+	} else { /* no direct compare - compare key addresses only */
 	    for (hPtr = tablePtr->buckets[index]; hPtr != NULL;
 		    hPtr = hPtr->nextPtr) {
 		if (hash != PTR2UINT(hPtr->hash)) {
 		    continue;
 		}
-		if (compareKeysProc((void *) key, hPtr)) {
+		/* if needle pointer equals content pointer or values equal */
+		if ((key == hPtr->key.string)
+		    || compareKeysProc((void *) key, hPtr)
+		) {
 		    if (newPtr) {
 			*newPtr = 0;
 		    }