diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-18 14:59:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-18 14:59:58 (GMT) |
| commit | 310292eedb66c40101d0f66c83dc2b5b6cab57ad (patch) | |
| tree | b6fa328f0613eca23e55ed299c7c8239e0a873a3 | |
| parent | 46eeca1581621c907a9da2061d8fe78fcde9a95c (diff) | |
| parent | c65c7c0a590554342da91a1e72b1f090f81ba95a (diff) | |
| download | tcl-310292eedb66c40101d0f66c83dc2b5b6cab57ad.zip tcl-310292eedb66c40101d0f66c83dc2b5b6cab57ad.tar.gz tcl-310292eedb66c40101d0f66c83dc2b5b6cab57ad.tar.bz2 | |
Merge 8.6
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 73bd0e9..bbb7dee 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -6017,10 +6017,10 @@ TEBCresume( * Handle shifts within the native long range. */ - if ((size_t) shift < CHAR_BIT*sizeof(long) && (w1 != 0) + if (((size_t) shift < CHAR_BIT*sizeof(long)) && !((w1>0 ? w1 : ~w1) & - -(1L<<(CHAR_BIT*sizeof(long) - 1 - shift)))) { - wResult = w1 << shift; + -(1UL<<(CHAR_BIT*sizeof(long) - 1 - shift)))) { + wResult = (unsigned long)w1 << shift; goto wideResultOfArithmetic; } } |