Fix for float values on VMS. (Zoltan Arpadffy)
diff --git a/src/eval.c b/src/eval.c
index 5dfb7f2..6d6f9b4 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -22,6 +22,10 @@
# include <time.h> /* for strftime() */
#endif
+#ifdef VMS
+# include <float.h>
+#endif
+
#ifdef MACOS
# include <time.h> /* for time_t */
#endif
@@ -4807,11 +4811,11 @@
if (f2 == 0.0)
{
if (f1 == 0)
- f1 = -0x7fffffffL - 1L; /* similar to NaN */
+ f1 = -1 * __F_FLT_MAX - 1L; /* similar to NaN */
else if (f1 < 0)
- f1 = -0x7fffffffL;
+ f1 = -1 * __F_FLT_MAX;
else
- f1 = 0x7fffffffL;
+ f1 = __F_FLT_MAX;
}
else
f1 = f1 / f2;