diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-20 01:00:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-20 01:00:46 (GMT) |
| commit | e06c316d168cdb8736fb9893c251cea8bab9d94a (patch) | |
| tree | b0623bd3ec91e75d4b5fa943acef518b00a53b7a | |
| parent | 4bf73cc869394fb3bae6938b4888f46eab12e50f (diff) | |
| parent | ead6c0d0543e7a3ccb5a45d79554f7852d70a1df (diff) | |
| download | tcl-e06c316d168cdb8736fb9893c251cea8bab9d94a.zip tcl-e06c316d168cdb8736fb9893c251cea8bab9d94a.tar.gz tcl-e06c316d168cdb8736fb9893c251cea8bab9d94a.tar.bz2 | |
Merge 8.7
| -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; } } |