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

* bignum.c (bytes_zero_p): Extracted from bary_pack.

Browse Source 
(bary_pack): Use bytes_zero_p.



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@41578 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akr 2013-06-22 15:52:36 +00:00
parent 31415e5809
commit f175d5259c
2 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
Sun Jun 23 00:51:29 2013 Tanaka Akira <akr@fsij.org>
* bignum.c (bytes_zero_p): Extracted from bary_pack.
(bary_pack): Use bytes_zero_p.
Sun Jun 23 00:16:57 2013 Tanaka Akira <akr@fsij.org>
* bignum.c (MSB): New macro.

21
bignum.c
View File

@ -123,6 +123,15 @@ rb_big_dump(VALUE x)
#define ON_DEBUG(x)
#endif
static int
bytes_zero_p(unsigned char *p, size_t n)
{
while (n--)
if (*p++)
return 0;
return 1;
}
static int
bary_zero_p(BDIGIT *xds, size_t nx)
{
@ -929,13 +938,11 @@ bary_pack(int sign, BDIGIT *ds, size_t num_bdigits, void *words, size_t numwords
if (sign < 0 && (flags & INTEGER_PACK_2COMP)) {
int zero_p = bytes_2comp(words, dst_size);
if (zero_p && overflow) {
unsigned char *p = (unsigned char *)dp + dst_size;
unsigned char *e = (unsigned char *)dp + src_size;
if (p < e && *p++ == 1) {
while (p < e && *p == 0)
p++;
if (p == e)
overflow = 0;
unsigned char *p = (unsigned char *)dp;
if (dst_size < src_size &&
p[dst_size] == 1 &&
bytes_zero_p(p+dst_size+1, src_size-dst_size-1)) {
overflow = 0;
}
}
}