diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | missing/lgamma_r.c | 2 |
2 files changed, 5 insertions, 1 deletions
@@ -1,3 +1,7 @@ +Fri Feb 8 23:51:36 2008 Tanaka Akira <akr@fsij.org> + + * missing/lgamma_r.c (lgamma_r): use smaller argument for sin function. + Fri Feb 8 22:10:36 2008 Tanaka Akira <akr@fsij.org> * lib/open-uri.rb (OpenURI.open_http): rescue URI::InvalidURIError by diff --git a/missing/lgamma_r.c b/missing/lgamma_r.c index 856cc83288..d4402c67b1 100644 --- a/missing/lgamma_r.c +++ b/missing/lgamma_r.c @@ -56,7 +56,7 @@ lgamma_r(double x, int *signp) return 1.0/zero; } *signp = (fmod(i, 2.0) != 0.0) ? 1 : -1; - s = sin(PI * x); + s = sin(PI * f); if (s < 0) s = -s; return LOG_PI - log(s) - loggamma(1 - x); } |