summaryrefslogtreecommitdiff
path: root/bignum.c
diff options
context:
space:
mode:
authornobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2003-05-25 14:48:26 +0000
committernobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2003-05-25 14:48:26 +0000
commitc13ca745209883e1d68bda80d9a1a2c9d2a932d8 (patch)
tree943a800590bf83b2d54c0cf19becc28e2d89c7e4 /bignum.c
parentd5d2ca754ba2d2848d398e419d926c519fb033b5 (diff)
* 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
Diffstat (limited to 'bignum.c')
-rw-r--r--bignum.c1
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);
}