diff options
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index bbb7dee..765b726 100644 --- 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; } } |