# HG changeset patch
# User Bram Moolenaar <bram@vim.org>
# Date 1281384428 -7200
# Node ID 2aaa88366cbb80808b8eaf61dfb8c34a99fbc3e6
# Parent  8bc2e8390c11054c3bd2fc64dd17d8b2dc354f95
Fix for float values on VMS. (Zoltan Arpadffy)

diff --git a/src/eval.c b/src/eval.c
--- 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;