* win32/win32.c (signbig): defined.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@26799 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,4 +1,6 @@
-Wed Mar  3 05:48:54 2010  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+Wed Mar  3 06:19:25 2010  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* win32/win32.c (signbig): defined.
 
 	* win32/Makefile.sub, symbian/setup (config.h): pack.c requires
 	  SIZEOF_INT*_T now.

win32/Makefile.sub

@@ -552,6 +552,7 @@ $(CONFIG_H): $(MKFILES) $(srcdir)/win32/Makefile.sub $(win_srcdir)/Makefile.sub
 #define HAVE_COSH 1
 #define HAVE_SINH 1
 #define HAVE_TANH 1
+#define HAVE_SIGNBIT 1
 #define HAVE_TZNAME 1
 #define HAVE_DAYLIGHT 1
 #define SETPGRP_VOID 1

win32/win32.c

@@ -5272,3 +5272,14 @@ _ftol2_sse(double d)
     return _ftol(d);
 }
 #endif
+
+int
+signbit(double x)
+{
+#ifdef _M_IX86
+    int *ip = (int *)(&x + 1) - 1;
+    return *ip < 0;
+#else
+# error not supported
+#endif
+}