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

[gb at clozure.com]

Author: gb
Date: Thu Oct 23 06:12:29 2008
New Revision: 11210

Log:
Ensure that there's a %SINGLE-FLOAT-EXP! for win32.

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 Thu Oct 23 06:12:29 2008
@@ -704,6 +704,14 @@
     (%sf-check-exception-1 'exp n (%ffi-exception-status))
     (%setf-short-float result TEMP)))
 =

+#+(and 32-bit-target windows-target)
+(defun %single-float-exp! (n result)
+  (declare (single-float n result))
+  (target::with-stack-short-floats ((temp))
+    (%setf-short-float TEMP (external-call "expf" :single-float n :single-=
float))
+    (%sf-check-exception-1 'exp n (%ffi-exception-status))
+    (%setf-short-float result TEMP)))
+
 #+64-bit-target
 (defun %single-float-exp (n)
   (declare (single-float n))