From a951fd16e79634a5967b32b281e69c2ec6cd9d8e Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 25 Aug 2023 17:22:22 +0000
Subject: Make "shift" an "int" variable; since it's range is 0 < shift <
 INT_MAX

---
 generic/tclExecute.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 3373079..e32ec99 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -8502,7 +8502,7 @@ ExecuteExtendedBinaryMathOp(
     mp_int big1, big2, bigResult, bigRemainder;
     Tcl_Obj *objResultPtr;
     int invalid, zero;
-    long shift;
+    int shift;
 
     (void) GetNumberFromObj(NULL, valuePtr, &ptr1, &type1);
     (void) GetNumberFromObj(NULL, value2Ptr, &ptr2, &type2);
-- 
cgit v0.12