Changeset 11210


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-numbers.lisp

    r11013 r11210  
    705705    (%setf-short-float result TEMP)))
    706706
     707#+(and 32-bit-target windows-target)
     708(defun %single-float-exp! (n result)
     709  (declare (single-float n result))
     710  (target::with-stack-short-floats ((temp))
     711    (%setf-short-float TEMP (external-call "expf" :single-float n :single-float))
     712    (%sf-check-exception-1 'exp n (%ffi-exception-status))
     713    (%setf-short-float result TEMP)))
     714
    707715#+64-bit-target
    708716(defun %single-float-exp (n)
Note: See TracChangeset for help on using the changeset viewer.