* win32/win32.c (NtInitialize): set the floating-point control word

on bcc32.

* win32/win32.h, bcc32/Makefile.sub: use missing/isinf.c, should not
  use _finite() because it returns 0 if NaN.


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

ChangeLog

@@ -1,3 +1,11 @@
+Sun Apr 20 23:24:25 2003  WATANABE Hirofumi  <eban@ruby-lang.org>
+
+	* win32/win32.c (NtInitialize): set the floating-point control word
+	  on bcc32.
+
+	* win32/win32.h, bcc32/Makefile.sub: use missing/isinf.c, should not
+	  use _finite() because it returns 0 if NaN.
+
 Sun Apr 20 03:09:30 2003  WATANABE Hirofumi  <eban@ruby-lang.org>
 
 	* parse.y (void_expr0): node might become NULL after calling

bcc32/Makefile.sub

@@ -102,7 +102,7 @@ RFLAGS = $(iconinc)
 EXTLIBS =
 !endif
 LIBS = cw32.lib import32.lib ws2_32.lib $(EXTLIBS)
-MISSING = acosh.obj crypt.obj win32.obj
+MISSING = acosh.obj crypt.obj win32.obj isinf.obj
 
 !ifndef STACK
 STACK = 0x2000000
@@ -270,7 +270,6 @@ config.h:
 \#define SIZEOF_DOUBLE  8
 
 \#define HAVE_DECL_SYS_NERR 1
-\#define HAVE_ISINF         1
 \#define HAVE_ISNAN         1
 \#define HAVE_MEMMOVE       1
 \#define HAVE_MKDIR         1

win32/win32.c

@@ -363,6 +363,10 @@ NtInitialize(int *argc, char ***argv)
     WORD version;
     int ret;
 
+#ifdef __BORLANDC__
+    _controlfp(0x5, 0x5);
+#endif
+
     //
     // subvert cmd.exe's feeble attempt at command line parsing
     //

win32/win32.h

@@ -177,9 +177,6 @@ extern pid_t rb_w32_getpid(void);
 
 #ifdef __BORLANDC__
 #include <float.h>
-#ifndef isinf
-#define isinf    !_finite
-#endif
 #ifndef isnan
 #define isnan    _isnan
 #endif