Changeset 14445

Timestamp:

Nov 22, 2010, 7:45:39 PM (10 years ago)

Author:

rme

Message:

Special cases for freebsdx8632-target in %double-float-exp! and
%single-float-exp!. Call functions included in freebsd8632 lisp
kernel so that we get desired fp exception behavior.

File:

• trunk/source/level-1/l1-numbers.lisp (modified) (2 diffs)

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

@@ -762 +762 @@
   (with-stack-double-floats ((temp))
     #+arm-target (%set-fpscr-status 0)
+    #-freebsdx8632-target
     (%setf-double-float TEMP (#_exp n))
+    #+freebsdx8632-target
+    (%setf-double-float TEMP (external-call "__ieee754_exp" :double-float n :double-float))
     (%df-check-exception-1 'exp n (%ffi-exception-status))
     (%setf-double-float result TEMP)))
@@ -771 +774 @@
   (target::with-stack-short-floats ((temp))
     #+arm-target (%set-fpscr-status 0)
+    #-freebsdx8632-target
     (%setf-short-float TEMP (#_expf n))
+    #+freebsdx8632-target
+    (%setf-short-float TEMP (external-call "__ieee754_expf" :single-float n :single-float))
     (%sf-check-exception-1 'exp n (%ffi-exception-status))
     (%setf-short-float result TEMP)))