diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2002-08-05 12:19:50 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2002-08-05 12:19:50 +0000 |
| commit | da8d3a6e46eb479c6fad7828b2c7dbe4459b9e66 (patch) | |
| tree | 9d261b70b1b399b89997acfc2c9dcec0cb38ad1f | |
| parent | 3a2cbe9ef1982e0acccfb3f77ecdcec349119a79 (diff) | |
Ne pas utiliser fpclassify sous Cygwin et Mingw (PR#1293)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5075 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | byterun/floats.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/byterun/floats.c b/byterun/floats.c index c1f6ec5af..cde3ff51d 100644 --- a/byterun/floats.c +++ b/byterun/floats.c @@ -335,7 +335,8 @@ enum { FP_normal, FP_subnormal, FP_zero, FP_infinite, FP_nan }; CAMLprim value classify_float(value vd) { -#ifdef fpclassify + /* Cygwin 1.3 has problems with fpclassify (PR#1293), so don't use it */ +#if defined(fpclassify) && !defined(__CYGWIN32__) && !defined(__MINGW32__) switch (fpclassify(Double_val(vd))) { case FP_NAN: return Val_int(FP_nan); |