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

Ensure that the literal 1 is wide enough for a shift (#23)

Browse Source 
Fixes runtime error found by ubsan.
original commit: 65e05772a1ee14d73c368f311e837b00af771a23
This commit is contained in:
Paulo Matos 2020-05-07 17:34:45 +02:00 committed by GitHub
parent 0d225f5505
commit 74ee485b21
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
c/number.c
View File

@ -1698,7 +1698,7 @@ static ptr big_logbitp(n, x, xl, xs) ptr x; iptr n, xl; IBOOL xs; {
if (i < 0) return Sfalse;
n = n % bigit_bits;
return Sboolean(BIGIT(x,i) & (1 << n));
return Sboolean(BIGIT(x,i) & ((bigit)1 << n));
} else {
bigit xb;
@ -1831,7 +1831,7 @@ static ptr big_logbit1(tc, origx, n, x, xl, xs) ptr tc, origx, x; iptr n, xl; IB
*--zp = x1;
n -= bigit_bits;
}
*--zp = x1 | (1 << n);
*--zp = x1 | ((bigit)1 << n);
for (; i > 0; i -= 1) *--zp = *--xp;
return copy_normalize(tc, zp, zl, 0);
} else if (yl > xl) {