diff options
| author | Bram Moolenaar <Bram@vim.org> | 2010-08-09 22:07:08 +0200 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2010-08-09 22:07:08 +0200 |
| commit | 314f11d44c5a8b011640b9e1a26bc71df4156b52 (patch) | |
| tree | e392c55e11f71b541d26b1a190f258f73eab3d76 /src/eval.c | |
| parent | b61f95c31f37ae3c5daef6596b55e4b9dec62eb8 (diff) | |
Fix for float values on VMS. (Zoltan Arpadffy)
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 10 |
1 files changed, 7 insertions, 3 deletions
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; |