ruby-changes:19584
From: nobu <ko1@a...>
Date: Wed, 18 May 2011 22:35:18 +0900 (JST)
Subject: [ruby-changes:19584] nobu:r31625 (trunk): * missing/lgamma_r.c (lgamma_r): get rid of false warning on mingw.
nobu 2011-05-18 22:35:13 +0900 (Wed, 18 May 2011) New Revision: 31625 http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=31625 Log: * missing/lgamma_r.c (lgamma_r): get rid of false warning on mingw. Modified files: trunk/missing/lgamma_r.c Index: missing/lgamma_r.c =================================================================== --- missing/lgamma_r.c (revision 31624) +++ missing/lgamma_r.c (revision 31625) @@ -47,6 +47,17 @@ + 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) -- ML: ruby-changes@q... Info: http://www.atdot.net/~ko1/quickml/