The R Project SVN – R – Diff – /trunk/src/include/Mathlib.h

 #define ME_UNDERFLOW	5
 #undef ML_PRECISION_WARNINGS
 #ifdef IEEE_754
-#ifdef HAVE_IEEE754_H
+# ifdef HAVE_IEEE754_H
-#include <ieee754.h> /* newer Linuxen */
+#  include <ieee754.h> /* newer Linuxen */
-#else
+# else
-#ifdef HAVE_IEEEFP_H
+#  ifdef HAVE_IEEEFP_H
-#include <ieeefp.h> /* others [Solaris 2.5.x], .. */
+#   include <ieeefp.h> /* others [Solaris 2.5.x], .. */
-#endif
+#  endif
-#endif
+# endif
 extern double m_zero;
 extern double m_one;
 /* extern double m_tiny; */
 #define ML_ERROR(x)	/* nothing */
 #define ML_POSINF	(m_one / m_zero)
 #define ML_NEGINF	((-m_one) / m_zero)
 #define ML_NAN		(m_zero / m_zero)
 #define ML_UNDERFLOW	(DBL_MIN * DBL_MIN)
 #define ML_VALID(x)	(!isnan(x))
-#else
+#else/*--- NO IEEE: No +/-Inf, NAN,... ---*/
 #define ML_ERROR(x)	ml_error(x)
 #define ML_POSINF	DBL_MAX
 #define ML_NEGINF	(-DBL_MAX)
 #define ML_NAN		(-DBL_MAX)
 #define ML_UNDERFLOW	0

The R Project SVN R