From cf4c69f2c6ee4075e430c2be345982b8179fdb87 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 1 Dec 2024 17:42:24 +0000
Subject: Fix compiler-warnings when TCL_COMPILE_DEBUG=1

---
 generic/tclLiteral.c | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c
index 08a073b..6720515 100644
--- a/generic/tclLiteral.c
+++ b/generic/tclLiteral.c
@@ -515,7 +515,7 @@ LookupLiteralEntry(
     LiteralTable *globalTablePtr = &iPtr->literalTable;
     LiteralEntry *entryPtr;
     const char *bytes;
-    size_t globalHash, length;
+    Tcl_Size globalHash, length;
 
     bytes = TclGetStringFromObj(objPtr, &length);
     globalHash = (HashString(bytes, length) & globalTablePtr->mask);
@@ -703,7 +703,8 @@ AddLocalLiteralEntry(
     {
 	char *bytes;
 	int found;
-	size_t length, i;
+	size_t i;
+	Tcl_Size length;
 
 	found = 0;
 	for (i=0 ; i<localTablePtr->numBuckets ; i++) {
@@ -1183,7 +1184,8 @@ TclVerifyLocalLiteralTable(
     LiteralTable *localTablePtr = &envPtr->localLitTable;
     LiteralEntry *localPtr;
     char *bytes;
-    size_t i, length, count = 0;
+    size_t i, count = 0;
+    Tcl_Size length;
 
     for (i=0 ; i<localTablePtr->numBuckets ; i++) {
 	for (localPtr=localTablePtr->buckets[i] ; localPtr!=NULL;
@@ -1232,7 +1234,8 @@ TclVerifyGlobalLiteralTable(
     LiteralTable *globalTablePtr = &iPtr->literalTable;
     LiteralEntry *globalPtr;
     char *bytes;
-    size_t i, length, count = 0;
+    size_t i, count = 0;
+    Tcl_Size length;
 
     for (i=0 ; i<globalTablePtr->numBuckets ; i++) {
 	for (globalPtr=globalTablePtr->buckets[i] ; globalPtr!=NULL;
-- 
cgit v0.12