Changeset 7880


Ignore:
Timestamp:
Dec 11, 2007, 4:43:20 AM (13 years ago)
Author:
rme
Message:

Use TARGET::WITH-STACK-SHORT-FLOATS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-1/l1-numbers.lisp

    r7811 r7880  
    466466(defun %single-float-expt! (b e result)
    467467  (declare (single-float b e result))
    468   (with-stack-short-floats ((temp))
     468  (target::with-stack-short-floats ((temp))
    469469    (%setf-short-float temp (#_powf b e))
    470470    (%sf-check-exception-2 'expt b e (%ffi-exception-status))
     
    488488(defun %single-float-sin! (n result)
    489489  (declare (single-float n result))
    490   (with-stack-short-floats ((temp))
     490  (target::with-stack-short-floats ((temp))
    491491    (%setf-short-float TEMP (#_sinf n))
    492492    (%sf-check-exception-1 'sin n (%ffi-exception-status))
     
    510510(defun %single-float-cos! (n result)
    511511  (declare (single-float n result))
    512   (with-stack-short-floats ((temp))
     512  (target::with-stack-short-floats ((temp))
    513513    (%setf-short-float TEMP (#_cosf n))
    514514    (%sf-check-exception-1 'cos n (%ffi-exception-status))
     
    532532(defun %single-float-acos! (n result)
    533533  (declare (single-float n result))
    534   (with-stack-short-floats ((temp))
     534  (target::with-stack-short-floats ((temp))
    535535    (%setf-short-float TEMP (#_acosf n))
    536536    (%sf-check-exception-1 'acos n (%ffi-exception-status))
     
    554554(defun %single-float-asin! (n result)
    555555  (declare (single-float n result))
    556   (with-stack-short-floats ((temp))
     556  (target::with-stack-short-floats ((temp))
    557557    (%setf-short-float TEMP (#_asinf n))
    558558    (%sf-check-exception-1 'asin n (%ffi-exception-status))
     
    576576(defun %single-float-cosh! (n result)
    577577  (declare (single-float n result))
    578   (with-stack-short-floats ((temp))
     578  (target::with-stack-short-floats ((temp))
    579579    (%setf-short-float TEMP (#_coshf n))
    580580    (%sf-check-exception-1 'cosh n (%ffi-exception-status))
     
    598598(defun %single-float-log! (n result)
    599599  (declare (single-float n result))
    600   (with-stack-short-floats ((temp))
     600  (target::with-stack-short-floats ((temp))
    601601    (%setf-short-float TEMP (#_logf n))
    602602    (%sf-check-exception-1 'log n (%ffi-exception-status))
     
    619619(defun %single-float-tan! (n result)
    620620  (declare (single-float n result))
    621   (with-stack-short-floats ((temp))
     621  (target::with-stack-short-floats ((temp))
    622622    (%setf-short-float TEMP (#_tanf n))
    623623    (%sf-check-exception-1 'tan n (%ffi-exception-status))
     
    642642(defun %single-float-atan! (n result)
    643643  (declare (single-float n result))
    644   (with-stack-short-floats ((temp))
     644  (target::with-stack-short-floats ((temp))
    645645    (%setf-short-float TEMP (#_atanf n))
    646646    (%sf-check-exception-1 'atan n (%ffi-exception-status))
     
    664664(defun %single-float-atan2! (x y result)
    665665  (declare (single-float x y result))
    666   (with-stack-short-floats ((temp))
     666  (target::with-stack-short-floats ((temp))
    667667    (%setf-short-float TEMP (#_atan2f x y))
    668668    (%sf-check-exception-2 'atan2 x y (%ffi-exception-status))
     
    686686(defun %single-float-exp! (n result)
    687687  (declare (single-float n result))
    688   (with-stack-short-floats ((temp))
     688  (target::with-stack-short-floats ((temp))
    689689    (%setf-short-float TEMP (#_expf n))
    690690    (%sf-check-exception-1 'exp n (%ffi-exception-status))
     
    708708(defun %single-float-sinh! (n result)
    709709  (declare (single-float n result))
    710   (with-stack-short-floats ((temp))
     710  (target::with-stack-short-floats ((temp))
    711711    (%setf-short-float TEMP (#_sinhf n))
    712712    (%sf-check-exception-1 'sinh n (%ffi-exception-status))
     
    730730(defun %single-float-tanh! (n result)
    731731  (declare (single-float n result))
    732   (with-stack-short-floats ((temp))
     732  (target::with-stack-short-floats ((temp))
    733733    (%setf-short-float TEMP (#_tanhf n))
    734734    (%sf-check-exception-1 'tanh n (%ffi-exception-status))
     
    753753(defun %single-float-asinh! (n result)
    754754  (declare (single-float n result))
    755   (with-stack-short-floats ((temp))
     755  (target::with-stack-short-floats ((temp))
    756756    (%setf-short-float TEMP (#_asinhf n))
    757757    (%sf-check-exception-1 'asinh n (%ffi-exception-status))
     
    775775(defun %single-float-acosh! (n result)
    776776  (declare (single-float n result))
    777   (with-stack-short-floats ((temp))
     777  (target::with-stack-short-floats ((temp))
    778778    (%setf-short-float TEMP (#_acoshf n))
    779779    (%sf-check-exception-1 'acosh n (%ffi-exception-status))
     
    797797(defun %single-float-atanh! (n result)
    798798  (declare (single-float n result))
    799   (with-stack-short-floats ((temp))
     799  (target::with-stack-short-floats ((temp))
    800800    (%setf-short-float TEMP (#_atanhf n))
    801801    (%sf-check-exception-1 'atanh n (%ffi-exception-status))
Note: See TracChangeset for help on using the changeset viewer.