Ignore:
Timestamp:
Oct 8, 2008, 2:02:51 AM (11 years ago)
Author:
gb
Message:

just use EXTERNAL-CALL for some math functions that aren't in the win32 headers. Forgot to check this in earlier

File:
1 edited

Legend:

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

    r10896 r11013  
    587587    (%setf-double-float result TEMP)))
    588588
    589 #+(and 32-bit-target (not win32-target))
     589#+32-bit-target
    590590(defun %single-float-cosh! (n result)
    591591  (declare (single-float n result))
    592592  (target::with-stack-short-floats ((temp))
    593     (%setf-short-float TEMP (#_coshf n))
     593    (%setf-short-float TEMP (external-call "coshf" :single-float n :single-float))
    594594    (%sf-check-exception-1 'cosh n (%ffi-exception-status))
    595595    (%setf-short-float result TEMP)))
     
    719719    (%setf-double-float result TEMP)))
    720720
    721 #+(and 32-bit-target (not windows-target))
     721#+32-bit-target
    722722(defun %single-float-sinh! (n result)
    723723  (declare (single-float n result))
    724724  (target::with-stack-short-floats ((temp))
    725     (%setf-short-float TEMP (#_sinhf n))
     725    (%setf-short-float TEMP (external-call "sinhf" :single-float n :single-float))
    726726    (%sf-check-exception-1 'sinh n (%ffi-exception-status))
    727727    (%setf-short-float result TEMP)))
     
    741741    (%setf-double-float result TEMP)))
    742742
    743 #+(and 32-bit-target (not windows-target))
     743#+32-bit-target
    744744(defun %single-float-tanh! (n result)
    745745  (declare (single-float n result))
    746746  (target::with-stack-short-floats ((temp))
    747     (%setf-short-float TEMP (#_tanhf n))
     747    (%setf-short-float TEMP (external-call "tanhf" :single-float n :single-float))
    748748    (%sf-check-exception-1 'tanh n (%ffi-exception-status))
    749749    (%setf-short-float result TEMP)))
Note: See TracChangeset for help on using the changeset viewer.