Permalink
Browse files

* missing/lgamma_r.c (lgamma_r): get rid of false warning on mingw.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@31625 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
  • Loading branch information...
1 parent d2dd741 commit bfb8b125faa32e908c474dece5e3d83a4424d209 @nobu nobu committed May 18, 2011
Showing with 11 additions and 0 deletions.
  1. +11 −0 missing/lgamma_r.c
View
11 missing/lgamma_r.c
@@ -47,6 +47,17 @@ loggamma(double x) /* the natural logarithm of the Gamma function. */
+ 0.5 * LOG_2PI - log(v) - x + (x - 0.5) * log(x);
}
+
+#ifdef __MINGW_ATTRIB_PURE
+/* get rid of bugs in math.h of mingw */
+#define modf(_X, _Y) __extension__ ({\
+ double intpart_modf_bug = intpart_modf_bug;\
+ double result_modf_bug = modf((_X), &intpart_modf_bug);\
+ *(_Y) = intpart_modf_bug;\
+ result_modf_bug;\
+})
+#endif
+
/* the natural logarithm of the absolute value of the Gamma function */
double
lgamma_r(double x, int *signp)

0 comments on commit bfb8b12

Please sign in to comment.