mirror of
https://github.com/ruby/ruby.git
synced 2025-08-15 13:39:04 +02:00
fix tgamma for inifity
* configure.in: do not use buggy tgamma() of mingw. * missing/tgamma.c (tgamma): merge fix for inifity from ruby_tgamma. since msvcr120.dll and later have tgamma, this implementation will not be used. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@58691 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
ac6e069aef
commit
126aba8587
3 changed files with 22 additions and 16 deletions
16
math.c
16
math.c
|
@ -778,22 +778,6 @@ math_erfc(VALUE unused_obj, VALUE x)
|
|||
return DBL2NUM(erfc(Get_Double(x)));
|
||||
}
|
||||
|
||||
#if defined _WIN32
|
||||
static inline double
|
||||
ruby_tgamma(const double d)
|
||||
{
|
||||
const double g = tgamma(d);
|
||||
if (isinf(g)) {
|
||||
if (d == 0.0 && signbit(d)) return -INFINITY;
|
||||
}
|
||||
if (isnan(g)) {
|
||||
if (!signbit(d)) return INFINITY;
|
||||
}
|
||||
return g;
|
||||
}
|
||||
#define tgamma(d) ruby_tgamma(d)
|
||||
#endif
|
||||
|
||||
#if defined LGAMMA_R_PM0_FIX
|
||||
static inline double
|
||||
ruby_lgamma_r(const double d, int *sign)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue