[MLton-commit] r4147

Stephen Weeks MLton@mlton.org
Thu, 3 Nov 2005 21:17:16 -0800


Only allow the fpclassify (feround) #ifdef's if not HAS_FPCLASSIFY
(HAS_FEROUND).


----------------------------------------------------------------------

U   mlton/trunk/runtime/platform.h

----------------------------------------------------------------------

Modified: mlton/trunk/runtime/platform.h
===================================================================
--- mlton/trunk/runtime/platform.h	2005-11-04 05:15:34 UTC (rev 4146)
+++ mlton/trunk/runtime/platform.h	2005-11-04 05:17:15 UTC (rev 4147)
@@ -166,6 +166,7 @@
 #define EXECVE execve
 #endif
 
+#if not HAS_FEROUND
 #ifndef FE_TONEAREST
 #define FE_TONEAREST 0
 #endif
@@ -178,8 +179,9 @@
 #ifndef FE_TOWARDZERO
 #define FE_TOWARDZERO 3
 #endif
+#endif
 
-
+#if not HAS_FPCLASSIFY
 #ifndef FP_INFINITE
 #define FP_INFINITE 1
 #endif
@@ -195,6 +197,7 @@
 #ifndef FP_ZERO
 #define FP_ZERO 2
 #endif
+#endif
 
 /* If HAS_TIME_PROFILING, then you must define these. */
 void *getTextStart ();