1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* bignum.c (BDIGMAX): Use BIGRAD.

Browse Source 
(BIGLO): Use BDIGMAX.
  (bigdivrem1): Ditto.
  (bigor_int): Ditto.
  (rb_big_or): Ditto.



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@41533 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akr 2013-06-21 10:40:19 +00:00
parent 90be342c9f
commit c54a1abde3
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@ -1,3 +1,11 @@
Fri Jun 21 19:38:37 2013 Tanaka Akira <akr@fsij.org>
* bignum.c (BDIGMAX): Use BIGRAD.
(BIGLO): Use BDIGMAX.
(bigdivrem1): Ditto.
(bigor_int): Ditto.
(rb_big_or): Ditto.
Fri Jun 21 19:18:48 2013 Tanaka Akira <akr@fsij.org>
* pack.c (pack_pack): Move the implementation for 'c' directive after

10
bignum.c
View File

@ -45,8 +45,8 @@ static VALUE big_three = Qnil;
#endif
#define BIGUP(x) ((BDIGIT_DBL)(x) << BITSPERDIG)
#define BIGDN(x) RSHIFT((x),BITSPERDIG)
#define BIGLO(x) ((BDIGIT)((x) & (BIGRAD-1)))
#define BDIGMAX ((BDIGIT)-1)
#define BIGLO(x) ((BDIGIT)((x) & BDIGMAX))
#define BDIGMAX ((BDIGIT)(BIGRAD-1))
#define BIGZEROP(x) (RBIGNUM_LEN(x) == 0 || \
(BDIGITS(x)[0] == 0 && \
@ -3834,7 +3834,7 @@ bigdivrem1(void *ptr)
bds->j = j;
return 0;
}
if (zds[j] == yds[ny-1]) q = (BDIGIT)BIGRAD-1;
if (zds[j] == yds[ny-1]) q = BDIGMAX;
else q = (BDIGIT)((BIGUP(zds[j]) + zds[j-1])/yds[ny-1]);
if (q) {
i = bds->nyzero; num = 0; t2 = 0;
@ -4542,7 +4542,7 @@ bigor_int(VALUE x, long y)
}
#endif
while (i < xn) {
zds[i] = sign?xds[i]:(BDIGIT)(BIGRAD-1);
zds[i] = sign?xds[i]:BDIGMAX;
i++;
}
if (!RBIGNUM_SIGN(z)) get2comp(z);
@ -4603,7 +4603,7 @@ rb_big_or(VALUE xx, VALUE yy)
zds[i] = ds1[i] | ds2[i];
}
for (; i<l2; i++) {
zds[i] = sign?ds2[i]:(BDIGIT)(BIGRAD-1);
zds[i] = sign?ds2[i]:BDIGMAX;
}
if (!RBIGNUM_SIGN(z)) get2comp(z);
return bignorm(z);