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

* pack.c: check assuption on QUAD_SIZE and SIZEOF_LONG.

Browse Source 
* bignum.c: check assuption on SIZEOF_LONG and SIZEOF_BDIGITS.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@26773 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akr 2010-02-27 06:56:46 +00:00
parent daaa605b79
commit a971778b39
3 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
Sat Feb 27 15:54:55 2010 Tanaka Akira <akr@fsij.org>
* pack.c: check assuption on QUAD_SIZE and SIZEOF_LONG.
* bignum.c: check assuption on SIZEOF_LONG and SIZEOF_BDIGITS.
Sat Feb 27 03:48:18 2010 Tanaka Akira <akr@fsij.org>
* pack.c: fix q and Q for big endian environments which have no

4
bignum.c
View File

@ -304,6 +304,10 @@ rb_int2inum(SIGNED_VALUE n)
return rb_int2big(n);
}
#if SIZEOF_LONG % SIZEOF_BDIGITS != 0
# error unexpected SIZEOF_LONG : SIZEOF_BDIGITS ratio
#endif
void
rb_big_pack(VALUE val, unsigned long *buf, long num_longs)
{

6
pack.c
View File

@ -740,6 +740,9 @@ pack_pack(VALUE ary, VALUE fmt)
#endif
#if SIZEOF_LONG != QUAD_SIZE || defined(FORCE_BIG_PACK)
#if QUAD_SIZE % SIZEOF_LONG != 0
# error unexpected QUAD_SIZE : SIZEOF_LONG ratio
#endif
case QUAD_SIZE:
while (len-- > 0) {
unsigned long tmp[QUAD_SIZE/SIZEOF_LONG];
@ -1662,6 +1665,9 @@ pack_unpack(VALUE str, VALUE fmt)
#endif
#if (SIZEOF_LONG != QUAD_SIZE && (!defined(HAVE_LONG_LONG) || SIZEOF_LONG_LONG != QUAD_SIZE)) || defined(FORCE_BIG_PACK)
#if QUAD_SIZE % SIZEOF_LONG != 0
# error unexpected QUAD_SIZE : SIZEOF_LONG ratio
#endif
case QUAD_SIZE:
if (bigendian_p != BIGENDIAN_P())
rb_bug("unexpected endian for unpack");