From 04388f9f9dae3dc6af0ff7b30495760a8dc352b4 Mon Sep 17 00:00:00 2001
From: tadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 15 Jun 2009 13:39:18 +0000
Subject: 	* bignum.c (rb_big2db): (-Float::MAX.to_i*2).to_f should
 return 	  -HUGE_VAL (-Infinity).

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@23695 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 398d963aea..123eca7403 100644
--- a/bignum.c
+++ b/bignum.c
@@ -1233,7 +1233,10 @@ rb_big2dbl(VALUE x)
 
     if (isinf(d)) {
 	rb_warning("Bignum out of Float range");
-	d = HUGE_VAL;
+	if (signbit(d))
+	  d = -HUGE_VAL;
+	else
+	  d = HUGE_VAL;
     }
     return d;
 }
-- 
cgit v1.2.3