diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-03-27 03:08:20 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-03-27 03:08:20 +0000 |
| commit | 22064c466b5c39e1fa6b875cdd404250c5ac0750 (patch) | |
| tree | 7b5dd4ed37a3f14cc233d02eb82ef18978988f37 | |
| parent | b1b8940a041d89c9b6deae7e56510747d96d39c9 (diff) | |
| download | ocaml-22064c466b5c39e1fa6b875cdd404250c5ac0750.tar.gz | |
ieee mode for FreeBSD before 4.0R (checked)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3476 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | byterun/floats.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/byterun/floats.c b/byterun/floats.c index 1c91fabbe4..96bada43d6 100644 --- a/byterun/floats.c +++ b/byterun/floats.c @@ -360,18 +360,18 @@ value classify_float(value vd) /* ML */ so that it behaves as much as possible like the IEEE standard. In particular, return special numbers like Infinity and NaN instead of signalling exceptions. Currently, everyone is in IEEE mode - at program startup. */ + at program startup, except FreeBSD prior to 4.0R. */ #ifdef __FreeBSD__ #include <osreldate.h> -#if (__FreeBSD_version < 310000) +#if (__FreeBSD_version < 400017) #include <floatingpoint.h> #endif #endif void init_ieee_floats(void) { -#if defined(__FreeBSD__) && (__FreeBSD_version < 310000) - fpsetmask(fpgetmask() & ~(FP_X_DZ | FP_X_INV)); +#if defined(__FreeBSD__) && (__FreeBSD_version < 400017) + fpsetmask(0); #endif } |