diff --git a/src/eval.c b/src/eval.c index 5dfb7f22668b3db292916d204e919949f3e38429..6d6f9b40cdda8ca2e1f4c25ba926628086cdfda1 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 @@ eval6(arg, rettv, evaluate, want_string) 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;