Changeset 11210 for trunk/source/level-1/l1-numbers.lisp

Timestamp:

Oct 23, 2008, 10:12:29 AM (11 years ago)

Author:

gb

Message:

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

File:

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

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

@@ -705 +705 @@
     (%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)