[前][次][番号順一覧][スレッド一覧]

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/

[前][次][番号順一覧][スレッド一覧]