From 0dedfa849c885b52745e46ec0620cf01a1533fbc Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 6 Jun 2000 02:39:39 +0000
Subject: bignum divmod bug

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@736 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 bignum.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'bignum.c')

diff --git a/bignum.c b/bignum.c
index c40f94f4d8..dabb96a82e 100644
--- a/bignum.c
+++ b/bignum.c
@@ -804,7 +804,10 @@ bigdivmod(x, y, div, mod, modulo)
 	RBIGNUM(z)->sign = RBIGNUM(x)->sign==RBIGNUM(y)->sign;
 	if (div) *div = bignorm(z);
 	if (mod) {
-	    if (!RBIGNUM(y)->sign) t2 = -(long)t2;
+	    if (!RBIGNUM(x)->sign) t2 = -(long)t2;
+	    if (modulo && RBIGNUM(x)->sign != RBIGNUM(y)->sign) {
+		t2 = t2 + yds[0] * (RBIGNUM(y)->sign ? 1 : -1);
+	    }
 	    *mod = INT2NUM(t2);
 	}
 	return;
-- 
cgit v1.2.3