matz	2009-06-01 07:46:43 +0900 (Mon, 01 Jun 2009)

  New Revision: 23609

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=23609

  Log:
    * ext/bigdecimal/bigdecimal.c (BigDecimal_to_f): returns Inf if
      exp is bigger than DBL_MANT_DIG.

  Modified files:
    trunk/ChangeLog
    trunk/ext/bigdecimal/bigdecimal.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 23608)
+++ ChangeLog	(revision 23609)
@@ -1,3 +1,8 @@
+Mon Jun  1 07:20:02 2009  Yukihiro Matsumoto  <matz@r...>
+
+	* ext/bigdecimal/bigdecimal.c (BigDecimal_to_f): returns Inf if
+	  exp is bigger than DBL_MANT_DIG.
+
 Sun May 31 23:28:00 2009  Nobuyoshi Nakada  <nobu@r...>
 
 	* lib/mkmf.rb (create_makefile): checks for duplication of source
Index: ext/bigdecimal/bigdecimal.c
===================================================================
--- ext/bigdecimal/bigdecimal.c	(revision 23608)
+++ ext/bigdecimal/bigdecimal.c	(revision 23609)
@@ -604,16 +604,18 @@
     volatile VALUE str;
 
     GUARD_OBJ(p,GetVpValue(self,1));
-    if(VpVtoD(&d, &e, p)!=1) return rb_float_new(d);
+    if (VpVtoD(&d, &e, p)!=1) return rb_float_new(d);
+    if (e > DBL_MAX_10_EXP) goto erange;
     str = rb_str_new(0, VpNumOfChars(p,"E"));
     buf = RSTRING_PTR(str);
     VpToString(p, buf, 0, 0);
     errno = 0;
     d = strtod(buf, 0);
     if(errno == ERANGE) {
+      erange:
        VpException(VP_EXCEPTION_OVERFLOW,"BigDecimal to Float conversion",0);
-       if(d>0.0) return rb_float_new(DBL_MAX);
-       else      return rb_float_new(-DBL_MAX);
+       if(d>0.0) d = VpGetDoublePosInf();
+       else      d = VpGetDoubleNegInf();
     }
     return rb_float_new(d);
 }

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/