Merge 8.7

tcltk · Dec 20, 2021 · a3659e3 · a3659e3
2 parents ee1c392 + 992992e
commit a3659e3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
@@ -5811,7 +5811,7 @@ TEBCresume(
 		    if (((size_t) shift < CHAR_BIT*sizeof(long))
 			    && !((w1>0 ? w1 : ~w1) &
 				-(1UL<<(CHAR_BIT*sizeof(long) - 1 - shift)))) {
-			wResult = (unsigned long)w1 << shift;
+			wResult = (Tcl_WideUInt)w1 << shift;
 			goto wideResultOfArithmetic;
 		    }
 		}