* bignum.c (rb_quad_pack): should negate negative bignum.

  (ruby-bugs-ja:PR#474)


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3865 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 1 insertions, 0 deletions

diff --git a/bignum.c b/bignum.c
index 01c882476e..5992662d42 100644
--- a/bignum.c
+++ b/bignum.c
@@ -206,6 +206,7 @@ rb_quad_pack(buf, val)
 	    q = BIGUP(q);
 	    q += ds[len];
 	}
+	if (!RBIGNUM(val)->sign) q = -q;
     }
     memcpy(buf, (char*)&q, SIZEOF_LONG_LONG);
 }