[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 ();