Changeset 14445
- Timestamp:
- Nov 22, 2010, 7:45:39 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-numbers.lisp
r14119 r14445 762 762 (with-stack-double-floats ((temp)) 763 763 #+arm-target (%set-fpscr-status 0) 764 #-freebsdx8632-target 764 765 (%setf-double-float TEMP (#_exp n)) 766 #+freebsdx8632-target 767 (%setf-double-float TEMP (external-call "__ieee754_exp" :double-float n :double-float)) 765 768 (%df-check-exception-1 'exp n (%ffi-exception-status)) 766 769 (%setf-double-float result TEMP))) … … 771 774 (target::with-stack-short-floats ((temp)) 772 775 #+arm-target (%set-fpscr-status 0) 776 #-freebsdx8632-target 773 777 (%setf-short-float TEMP (#_expf n)) 778 #+freebsdx8632-target 779 (%setf-short-float TEMP (external-call "__ieee754_expf" :single-float n :single-float)) 774 780 (%sf-check-exception-1 'exp n (%ffi-exception-status)) 775 781 (%setf-short-float result TEMP)))
Note: See TracChangeset
for help on using the changeset viewer.