Changeset 11210 for trunk/source/level-1/l1-numbers.lisp
- Timestamp:
- Oct 23, 2008, 10:12:29 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-numbers.lisp
r11013 r11210 705 705 (%setf-short-float result TEMP))) 706 706 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 707 715 #+64-bit-target 708 716 (defun %single-float-exp (n)
Note: See TracChangeset
for help on using the changeset viewer.