[Openmcl-cvs-notifications] r16201 - /trunk/source/level-1/l1-numbers.lisp

rme at clozure.com rme at clozure.com
Tue Sep 16 16:07:33 UTC 2014


Author: rme
Date: Tue Sep 16 16:07:33 2014
New Revision: 16201

Log:
The exp function in the math library of FreeBSD/x8632 wants the
x87 to be in extended precision mode, and will mask FP exceptions
as a side-effect of switching to that mode.

So, use the same workaround for freebsdx8632-target that we already
use for linux-target.

Modified:
    trunk/source/level-1/l1-numbers.lisp

Modified: trunk/source/level-1/l1-numbers.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-numbers.lisp	(original)
+++ trunk/source/level-1/l1-numbers.lisp	Tue Sep 16 16:07:33 2014
@@ -758,7 +758,7 @@
     #+arm-target (%set-fpscr-status 0)
     (%setf-double-float TEMP (#_exp n))
     (%df-check-exception-1 'exp n (%ffi-exception-status))
-    #+linux-target
+    #+(or linux-target freebsdx8632-target)
     (and (infinity-p TEMP)
          (not (infinity-p n))
          (get-fpu-mode :overflow)
@@ -774,7 +774,7 @@
     #+arm-target (%set-fpscr-status 0)
     (%setf-short-float TEMP (#_expf n))
     (%sf-check-exception-1 'exp n (%ffi-exception-status))
-    #+linux-target
+    #+(or linux-target freebsdx8632-target)
     (and (infinity-p TEMP)
          (not (infinity-p n))
          (get-fpu-mode :overflow)



More information about the Openmcl-cvs-notifications mailing list