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

fix performance problem in bitwise-bit-field

Browse Source 
svn: r13267
This commit is contained in:
Matthew Flatt 2009-01-23 17:39:57 +00:00
parent df4b9f41a8
commit 576ac71d78
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mzscheme/src/number.c
View File

@ -2620,12 +2620,14 @@ static Scheme_Object *bitwise_bit_field (int argc, Scheme_Object *argv[])
v2 = SCHEME_INT_VAL(sb2);
if (v2 >= v1) {
v2 -= v1;
if ((v1 < (sizeof(long) * 8))
&& (v2 < (sizeof(long) * 8))) {
if (v2 < (sizeof(long) * 8)) {
if (SCHEME_INTP(so)) {
long res;
res = ((SCHEME_INT_VAL(so) >> v1) & ((1 << v2) - 1));
return scheme_make_integer(res);
if (v1 < (sizeof(long) * 8)) {
long res;
res = ((SCHEME_INT_VAL(so) >> v1) & ((1 << v2) - 1));
return scheme_make_integer(res);
} else if (SCHEME_INT_VAL(so) > 0)
return scheme_make_integer(0);
} else if (SCHEME_BIGPOS(so)) {
bigdig d;
long vd, vb, avail;