Unbreak windows build caused by [066a9b81b8|this] commit

tcltk · Dec 20, 2021 · 992992e · 992992e
1 parent 2184d73
commit 992992e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
@@ -6020,7 +6020,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;
 		    }
 		}