Ignore:
Timestamp:
Sep 27, 2008, 6:51:51 AM (11 years ago)
Author:
gb
Message:

Deja vu, all over again: no single-float trig functions in Win32 headers,
but I may have the wrong headers. Mostly conditionalize out for now.

File:
1 edited

Legend:

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

    r10633 r10896  
    469469    (%setf-double-float result TEMP)))
    470470
    471 #+32-bit-target
     471#+(and 32-bit-target (not win32-target))
    472472(defun %single-float-expt! (b e result)
    473473  (declare (single-float b e result))
     
    476476    (%sf-check-exception-2 'expt b e (%ffi-exception-status))
    477477    (%setf-short-float result TEMP)))
     478
     479#+win32-target
     480(defun %single-float-expt! (b e result)
     481  (declare (single-float b e result))
     482  (with-stack-double-floats ((temp) (db b) (de e))
     483    (%setf-double-float temp (#_pow db de))
     484    (%df-check-exception-2 'expt b e (%ffi-exception-status))
     485    (%double-float->short-float temp result)))
    478486
    479487#+64-bit-target
     
    579587    (%setf-double-float result TEMP)))
    580588
    581 #+32-bit-target
     589#+(and 32-bit-target (not win32-target))
    582590(defun %single-float-cosh! (n result)
    583591  (declare (single-float n result))
     
    689697    (%setf-double-float result TEMP)))
    690698
    691 #+32-bit-target
     699#+(and 32-bit-target (not windows target))
    692700(defun %single-float-exp! (n result)
    693701  (declare (single-float n result))
     
    711719    (%setf-double-float result TEMP)))
    712720
    713 #+32-bit-target
     721#+(and 32-bit-target (not windows-target))
    714722(defun %single-float-sinh! (n result)
    715723  (declare (single-float n result))
     
    733741    (%setf-double-float result TEMP)))
    734742
    735 #+32-bit-target
     743#+(and 32-bit-target (not windows-target))
    736744(defun %single-float-tanh! (n result)
    737745  (declare (single-float n result))
Note: See TracChangeset for help on using the changeset viewer.