1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* ext/bigdecimal/bigdecimal.c (BigDecimal_to_f): returns Inf if

Browse Source 
exp is bigger than DBL_MANT_DIG.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@23609 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
matz 2009-05-31 22:46:43 +00:00
parent 17d88c0333
commit 5594f2bffb
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
Mon Jun 1 07:20:02 2009 Yukihiro Matsumoto <matz@ruby-lang.org>
* 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@ruby-lang.org> Sun May 31 23:28:00 2009 Nobuyoshi Nakada <nobu@ruby-lang.org>
* lib/mkmf.rb (create_makefile): checks for duplication of source * lib/mkmf.rb (create_makefile): checks for duplication of source

8
ext/bigdecimal/bigdecimal.c
View File

@ -604,16 +604,18 @@ BigDecimal_to_f(VALUE self)
volatile VALUE str; volatile VALUE str;
GUARD_OBJ(p,GetVpValue(self,1)); 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")); str = rb_str_new(0, VpNumOfChars(p,"E"));
buf = RSTRING_PTR(str); buf = RSTRING_PTR(str);
VpToString(p, buf, 0, 0); VpToString(p, buf, 0, 0);
errno = 0; errno = 0;
d = strtod(buf, 0); d = strtod(buf, 0);
if(errno == ERANGE) { if(errno == ERANGE) {
erange:
VpException(VP_EXCEPTION_OVERFLOW,"BigDecimal to Float conversion",0); VpException(VP_EXCEPTION_OVERFLOW,"BigDecimal to Float conversion",0);
if(d>0.0) return rb_float_new(DBL_MAX); if(d>0.0) d = VpGetDoublePosInf();
else return rb_float_new(-DBL_MAX); else d = VpGetDoubleNegInf();
} }
return rb_float_new(d); return rb_float_new(d);
} }