From 314f11d44c5a8b011640b9e1a26bc71df4156b52 Mon Sep 17 00:00:00 2001
From: Bram Moolenaar <Bram@vim.org>
Date: Mon, 9 Aug 2010 22:07:08 +0200
Subject: Fix for float values on VMS. (Zoltan Arpadffy)

---
 src/eval.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src/eval.c')

diff --git a/src/eval.c b/src/eval.c
index 5dfb7f2266..6d6f9b40cd 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;
-- 
cgit v1.2.3