suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix ubsan runtime error due to large shift

Browse Source
This commit is contained in:
Paulo Matos 2018-10-02 22:02:00 +02:00 committed by Matthew Flatt
parent 15523f68ec
commit 5bbbe44a7b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/src/number.c
View File

@ -5477,8 +5477,8 @@ static Scheme_Object *fold_fixnum_bitwise_shift(int argc, Scheme_Object *argv[])
base = SCHEME_INT_VAL(argv[0]);
/* Consistent if potentially unkept bits are all 0 or 1 */
if (!(base - (base & ((1 << kept) - 1)))
|| !(~(base | ((1 << kept) - 1)))) {
if (!(base - (base & ((1UL << kept) - 1)))
|| !(~(base | ((1UL << kept) - 1)))) {
v = base << amt;
return scheme_make_integer(v);