From 1876fe215dfd8f18fcacb7967ede6fe9221bdf29 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 19 Mar 2023 13:34:04 +0000
Subject: Another fix: don't access (w) twice

---
 generic/tclInt.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclInt.h b/generic/tclInt.h
index aa9247f..6aa05a8 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -4917,7 +4917,7 @@ MODULE_SCOPE Tcl_LibraryInitProc Procbodytest_SafeInit;
 	if (_uw >= TCL_INDEX_NONE) {
 	    TclNewIntObj(objPtr, -1);
 	} else {
-	    TclNewUIntObj(objPtr, w);
+	    TclNewUIntObj(objPtr, _uw);
 	}
 	} while (0)
 
-- 
cgit v0.12