Changeset 14445 for trunk/source/level-1


Ignore:
Timestamp:
Nov 22, 2010, 7:45:39 PM (9 years ago)
Author:
rme
Message:

Special cases for freebsdx8632-target in %double-float-exp! and
%single-float-exp!. Call functions included in freebsd8632 lisp
kernel so that we get desired fp exception behavior.

File:
1 edited

Legend:

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

    r14119 r14445  
    762762  (with-stack-double-floats ((temp))
    763763    #+arm-target (%set-fpscr-status 0)
     764    #-freebsdx8632-target
    764765    (%setf-double-float TEMP (#_exp n))
     766    #+freebsdx8632-target
     767    (%setf-double-float TEMP (external-call "__ieee754_exp" :double-float n :double-float))
    765768    (%df-check-exception-1 'exp n (%ffi-exception-status))
    766769    (%setf-double-float result TEMP)))
     
    771774  (target::with-stack-short-floats ((temp))
    772775    #+arm-target (%set-fpscr-status 0)
     776    #-freebsdx8632-target
    773777    (%setf-short-float TEMP (#_expf n))
     778    #+freebsdx8632-target
     779    (%setf-short-float TEMP (external-call "__ieee754_expf" :single-float n :single-float))
    774780    (%sf-check-exception-1 'exp n (%ffi-exception-status))
    775781    (%setf-short-float result TEMP)))
Note: See TracChangeset for help on using the changeset viewer.