From e149ee88cf53bb5665ab240a138be41d0b337ea8 Mon Sep 17 00:00:00 2001
From: "(no author)" <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 25 May 2001 21:10:58 +0000
Subject: This commit was manufactured by cvs2svn to create tag
 'v1_6_4_preview4'.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_6_4_preview4@1459 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 bignum.c | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

(limited to 'bignum.c')

diff --git a/bignum.c b/bignum.c
index daf131b042..3159d143c7 100644
--- a/bignum.c
+++ b/bignum.c
@@ -209,6 +209,10 @@ rb_cstr2inum(str, base)
 	str++;
 	sign = 0;
     }
+    if (str[0] == '+' || str[0] == '-') {
+	if (badcheck) goto bad;
+	return INT2FIX(0);
+    }
     if (base == 0) {
 	if (str[0] == '0') {
 	    if (str[1] == 'x' || str[1] == 'X') {
@@ -359,7 +363,7 @@ rb_big2str(x, base)
     VALUE x;
     int base;
 {
-    VALUE t;
+    volatile VALUE t;
     BDIGIT *ds;
     long i, j, hbase;
     VALUE ss;
@@ -467,7 +471,7 @@ rb_big2long(x)
 {
     unsigned long num = big2ulong(x, "int");
 
-    if ((long)num < 0) {
+    if ((long)num < 0 && (RBIGNUM(x)->sign || (long)num != LONG_MIN)) {
 	rb_raise(rb_eRangeError, "bignum too big to convert into `int'");
     }
     if (!RBIGNUM(x)->sign) return -(long)num;
@@ -831,8 +835,10 @@ bigdivrem(x, y, divp, modp)
 	    t2 %= dd;
 	}
 	RBIGNUM(z)->sign = RBIGNUM(x)->sign==RBIGNUM(y)->sign;
-	if (!RBIGNUM(x)->sign) t2 = -(long)t2;
-	if (modp) *modp = rb_int2big((long)t2);
+	if (modp) {
+	    *modp = rb_uint2big((unsigned long)t2);
+	    RBIGNUM(*modp)->sign = RBIGNUM(x)->sign;
+	}
 	if (divp) *divp = z;
 	return;
     }
@@ -911,10 +917,10 @@ bigdivrem(x, y, divp, modp)
     }
     if (modp) {			/* just normalize remainder */
 	*modp = rb_big_clone(z);
+	zds = BDIGITS(*modp);
+	while (ny-- && !zds[ny]); ++ny;
 	if (dd) {
-	    zds = BDIGITS(*modp);
-	    while (ny-- && !zds[ny]) ;
-	    t2 = 0; i = ++ny;
+	    t2 = 0; i = ny;
 	    while(i--) {
 		t2 = (t2 | zds[i]) >> dd;
 		q = zds[i];
-- 
cgit v1.2.3