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

math.c: more robust

Browse Source 
* math.c (math_gamma): make more robust against addition/removal.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@49972 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2015-03-14 23:34:39 +00:00
parent 3f16e7dd7f
commit 573772ab5b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
math.c
View File

@ -836,12 +836,10 @@ mingw_tgamma(const double d)
* *
*/ */
#define NFACT_TABLE 23
static VALUE static VALUE
math_gamma(VALUE obj, VALUE x) math_gamma(VALUE obj, VALUE x)
{ {
static const double fact_table[NFACT_TABLE] = { static const double fact_table[] = {
/* fact(0) */ 1.0, /* fact(0) */ 1.0,
/* fact(1) */ 1.0, /* fact(1) */ 1.0,
/* fact(2) */ 2.0, /* fact(2) */ 2.0,
@ -869,6 +867,7 @@ math_gamma(VALUE obj, VALUE x)
* impossible to represent exactly in IEEE 754 double which have * impossible to represent exactly in IEEE 754 double which have
* 53bit mantissa. */ * 53bit mantissa. */
}; };
enum {NFACT_TABLE = numberof(fact_table)};
double d; double d;
d = Get_Double(x); d = Get_Double(x);
/* check for domain error */ /* check for domain error */