Changeset 10530


Ignore:
Timestamp:
Aug 22, 2008, 2:09:25 PM (11 years ago)
Author:
gb
Message:

Remove old DarwinPPC math stuff (old DarwinPPC math libs were missing
single-precision versions of many math functions.)

E.g., "synch with trunk."

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0711/ccl/level-1/l1-numbers.lisp

    r9578 r10530  
    469469    (%setf-double-float result TEMP)))
    470470
    471 #+(and ppc32-target (not darwinppc-target))
     471#+32-bit-target
    472472(defun %single-float-expt! (b e result)
    473473  (declare (single-float b e result))
    474   (ppc32::with-stack-short-floats ((temp))
     474  (target::with-stack-short-floats ((temp))
    475475    (%setf-short-float temp (#_powf b e))
    476476    (%sf-check-exception-2 'expt b e (%ffi-exception-status))
    477477    (%setf-short-float result TEMP)))
    478 
    479 #+(and ppc32-target darwinppc-target)
    480 (defun %single-float-expt! (b e result)
    481   (declare (single-float b e result))
    482   (with-stack-double-floats ((b2 b)
    483                              (e2 e)
    484                              (result2))
    485     (%double-float-expt! b2 e2 result2)
    486     (%double-float->short-float result2 result)))
    487478
    488479#+64-bit-target
    … …  
    500491    (%setf-double-float result TEMP)))
    501492
    502 #+(and ppc32-target (not darwinppc-target))
     493#+32-bit-target
    503494(defun %single-float-sin! (n result)
    504495  (declare (single-float n result))
    505   (ppc32::with-stack-short-floats ((temp))
     496  (target::with-stack-short-floats ((temp))
    506497    (%setf-short-float TEMP (#_sinf n))
    507498    (%sf-check-exception-1 'sin n (%ffi-exception-status))
    508499    (%setf-short-float result TEMP)))
    509500
    510 #+(and ppc32-target darwinppc-target)
    511 (defun %single-float-sin! (n result)
    512   (declare (single-float n result))
    513   (with-stack-double-floats ((n2 n)
    514                              (result2))
    515     (%double-float-sin! n2 result2)
    516     (%double-float->short-float result2 result)))
    517 
    518501#+64-bit-target
    519502(defun %single-float-sin (n)
    … …  
    530513    (%setf-double-float result TEMP)))
    531514
    532 #+(and ppc32-target (not darwinppc-target))
     515#+32-bit-target
    533516(defun %single-float-cos! (n result)
    534517  (declare (single-float n result))
    535   (ppc32::with-stack-short-floats ((temp))
     518  (target::with-stack-short-floats ((temp))
    536519    (%setf-short-float TEMP (#_cosf n))
    537520    (%sf-check-exception-1 'cos n (%ffi-exception-status))
    538521    (%setf-short-float result TEMP)))
    539522
    540 #+(and ppc32-target darwinppc-target)
    541 (defun %single-float-cos! (n result)
    542   (declare (single-float n result))
    543   (with-stack-double-floats ((n2 n)
    544                              (result2))
    545     (%double-float-cos! n2 result2)
    546     (%double-float->short-float result2 result)))
    547 
    548523#+64-bit-target
    549524(defun %single-float-cos (n)
    … …  
    560535    (%setf-double-float result TEMP)))
    561536
    562 #+(and ppc32-target (not darwinppc-target))
     537#+32-bit-target
    563538(defun %single-float-acos! (n result)
    564539  (declare (single-float n result))
    565   (ppc32::with-stack-short-floats ((temp))
     540  (target::with-stack-short-floats ((temp))
    566541    (%setf-short-float TEMP (#_acosf n))
    567542    (%sf-check-exception-1 'acos n (%ffi-exception-status))
    568543    (%setf-short-float result TEMP)))
    569544
    570 #+(and ppc32-target darwinppc-target)
    571 (defun %single-float-acos! (n result)
    572   (declare (single-float n result))
    573   (with-stack-double-floats ((n2 n)
    574                              (result2))
    575     (%double-float-acos! n2 result2)
    576     (%double-float->short-float result2 result)))
    577 
    578545#+64-bit-target
    579546(defun %single-float-acos (n)
    … …  
    590557    (%setf-double-float result TEMP)))
    591558
    592 #+(and ppc32-target (not darwinppc-target))
     559#+32-bit-target
    593560(defun %single-float-asin! (n result)
    594561  (declare (single-float n result))
    595   (ppc32::with-stack-short-floats ((temp))
     562  (target::with-stack-short-floats ((temp))
    596563    (%setf-short-float TEMP (#_asinf n))
    597564    (%sf-check-exception-1 'asin n (%ffi-exception-status))
    598565    (%setf-short-float result TEMP)))
    599566
    600 #+(and ppc32-target darwinppc-target)
    601 (defun %single-float-asin! (n result)
    602   (declare (single-float n result))
    603   (with-stack-double-floats ((n2 n)
    604                              (result2))
    605     (%double-float-asin! n2 result2)
    606     (%double-float->short-float result2 result)))
    607 
    608567#+64-bit-target
    609568(defun %single-float-asin (n)
    … …  
    620579    (%setf-double-float result TEMP)))
    621580
    622 #+(and ppc32-target (not darwinppc-target))
     581#+32-bit-target
    623582(defun %single-float-cosh! (n result)
    624583  (declare (single-float n result))
    625   (ppc32::with-stack-short-floats ((temp))
     584  (target::with-stack-short-floats ((temp))
    626585    (%setf-short-float TEMP (#_coshf n))
    627586    (%sf-check-exception-1 'cosh n (%ffi-exception-status))
    628587    (%setf-short-float result TEMP)))
    629588
    630 #+(and ppc32-target darwinppc-target)
    631 (defun %single-float-cosh! (n result)
    632   (declare (single-float n result))
    633   (with-stack-double-floats ((n2 n)
    634                              (result2))
    635     (%double-float-cosh! n2 result2)
    636     (%double-float->short-float result2 result)))
    637 
    638589#+64-bit-target
    639590(defun %single-float-cosh (n)
    … …  
    643594    result))
    644595
    645 
    646596(defun %double-float-log! (n result)
    647597  (declare (double-float n result))
    … …  
    651601    (%setf-double-float result TEMP)))
    652602
    653 #+ppc32-target
    654 (progn
    655 #-darwinppc-target
     603#+32-bit-target
    656604(defun %single-float-log! (n result)
    657605  (declare (single-float n result))
    658   (ppc32::with-stack-short-floats ((temp))
     606  (target::with-stack-short-floats ((temp))
    659607    (%setf-short-float TEMP (#_logf n))
    660608    (%sf-check-exception-1 'log n (%ffi-exception-status))
    661609    (%setf-short-float result TEMP)))
    662 
    663 #+darwinppc-target
    664 (defun %single-float-log! (n result)
    665   (declare (single-float n result))
    666   (with-stack-double-floats ((n2 n)
    667                              (result2))
    668     (%double-float-log! n2 result2)
    669     (%double-float->short-float result2 result)))
    670 )
    671610
    672611#+64-bit-target
    … …  
    683622    (%setf-double-float result TEMP)))
    684623
    685 #+(and ppc32-target (not darwinppc-target))
     624#+32-bit-target
    686625(defun %single-float-tan! (n result)
    687626  (declare (single-float n result))
    688   (ppc32::with-stack-short-floats ((temp))
     627  (target::with-stack-short-floats ((temp))
    689628    (%setf-short-float TEMP (#_tanf n))
    690629    (%sf-check-exception-1 'tan n (%ffi-exception-status))
    691630    (%setf-short-float result TEMP)))
    692631
    693 #+(and ppc32-target darwinppc-target)
    694 (defun %single-float-tan! (n result)
    695   (declare (single-float n result))
    696   (with-stack-double-floats ((n2 n)
    697                              (result2))
    698     (%double-float-tan! n2 result2)
    699     (%double-float->short-float result2 result)))
    700 
    701632#+64-bit-target
    702633(defun %single-float-tan (n)
    … …  
    714645
    715646
    716 #+(and ppc32-target (not darwinppc-target))
     647#+32-bit-target
    717648(defun %single-float-atan! (n result)
    718649  (declare (single-float n result))
    719   (ppc32::with-stack-short-floats ((temp))
     650  (target::with-stack-short-floats ((temp))
    720651    (%setf-short-float TEMP (#_atanf n))
    721652    (%sf-check-exception-1 'atan n (%ffi-exception-status))
    722653    (%setf-short-float result TEMP)))
    723 
    724 #+(and ppc32-target darwinppc-target)
    725 (defun %single-float-atan! (n result)
    726   (declare (single-float n result))
    727   (with-stack-double-floats ((n2 n)
    728                              (result2))
    729     (%double-float-atan! n2 result2)
    730     (%double-float->short-float result2 result)))
    731654
    732655#+64-bit-target
    … …  
    744667    (%setf-double-float result TEMP)))
    745668
    746 #+(and ppc32-target (not darwinppc-target))
     669#+32-bit-target
    747670(defun %single-float-atan2! (x y result)
    748671  (declare (single-float x y result))
    749   (ppc32::with-stack-short-floats ((temp))
     672  (target::with-stack-short-floats ((temp))
    750673    (%setf-short-float TEMP (#_atan2f x y))
    751674    (%sf-check-exception-2 'atan2 x y (%ffi-exception-status))
    752675    (%setf-short-float result TEMP)))
    753 
    754 #+(and ppc32-target darwinppc-target)
    755 (defun %single-float-atan2! (x y result)
    756   (declare (single-float x y result))
    757   (with-stack-double-floats ((x2 x)
    758                              (y2 y)
    759                              (result2))
    760     (%double-float-atan2! x2 y2 result2)
    761     (%double-float->short-float result2 result)))
    762676
    763677#+64-bit-target
    … …  
    775689    (%setf-double-float result TEMP)))
    776690
    777 #+(and ppc32-target (not darwinppc-target))
     691#+32-bit-target
    778692(defun %single-float-exp! (n result)
    779693  (declare (single-float n result))
    780   (ppc32::with-stack-short-floats ((temp))
     694  (target::with-stack-short-floats ((temp))
    781695    (%setf-short-float TEMP (#_expf n))
    782696    (%sf-check-exception-1 'exp n (%ffi-exception-status))
    783697    (%setf-short-float result TEMP)))
    784698
    785 #+(and ppc32-target darwinppc-target)
    786 (defun %single-float-exp! (n result)
    787   (declare (single-float n result))
    788   (with-stack-double-floats ((n2 n)
    789                              (result2))
    790     (%double-float-exp! n2 result2)
    791     (%double-float->short-float result2 result)))
    792 
    793699#+64-bit-target
    794700(defun %single-float-exp (n)
    … …  
    805711    (%setf-double-float result TEMP)))
    806712
    807 #+(and ppc32-target (not darwinppc-target))
     713#+32-bit-target
    808714(defun %single-float-sinh! (n result)
    809715  (declare (single-float n result))
    810   (ppc32::with-stack-short-floats ((temp))
     716  (target::with-stack-short-floats ((temp))
    811717    (%setf-short-float TEMP (#_sinhf n))
    812718    (%sf-check-exception-1 'sinh n (%ffi-exception-status))
    813719    (%setf-short-float result TEMP)))
    814720
    815 #+(and darwinppc-target ppc32-target)
    816 (defun %single-float-sinh! (n result)
    817   (declare (single-float n result))
    818   (with-stack-double-floats ((n2 n)
    819                              (result2))
    820     (%double-float-sinh! n2 result2)
    821     (%double-float->short-float result2 result)))
    822 
    823721#+64-bit-target
    824722(defun %single-float-sinh (n)
    … …  
    828726    result))
    829727
    830 
    831 
    832728(defun %double-float-tanh! (n result)
    833729  (declare (double-float n result))
    … …  
    837733    (%setf-double-float result TEMP)))
    838734
    839 
    840 #+(and ppc32-target (not darwinppc-target))
     735#+32-bit-target
    841736(defun %single-float-tanh! (n result)
    842737  (declare (single-float n result))
    843   (ppc32::with-stack-short-floats ((temp))
     738  (target::with-stack-short-floats ((temp))
    844739    (%setf-short-float TEMP (#_tanhf n))
    845740    (%sf-check-exception-1 'tanh n (%ffi-exception-status))
    846741    (%setf-short-float result TEMP)))
    847742
    848 #+(and ppc32-target darwinppc-target)
    849 (defun %single-float-tanh! (n result)
    850   (declare (single-float n result))
    851   (with-stack-double-floats ((n2 n)
    852                              (result2))
    853     (%double-float-tanh! n2 result2)
    854     (%double-float->short-float result2 result)))
    855 
    856743#+64-bit-target
    857744(defun %single-float-tanh (n)
    … …  
    869756
    870757
    871 #+(and ppc32-target (not darwinppc-target))
     758#+32-bit-target
    872759(defun %single-float-asinh! (n result)
    873760  (declare (single-float n result))
    874   (ppc32::with-stack-short-floats ((temp))
     761  (target::with-stack-short-floats ((temp))
    875762    (%setf-short-float TEMP (#_asinhf n))
    876763    (%sf-check-exception-1 'asinh n (%ffi-exception-status))
    877764    (%setf-short-float result TEMP)))
    878765
    879 #+(and ppc32-target darwinppc-target)
    880 (defun %single-float-asinh! (n result)
    881   (declare (single-float n result))
    882   (with-stack-double-floats ((n2 n)
    883                              (result2))
    884     (%double-float-asinh! n2 result2)
    885     (%double-float->short-float result2 result)))
    886 
    887766#+64-bit-target
    888767(defun %single-float-asinh (n)
    … …  
    899778    (%setf-double-float result TEMP)))
    900779
    901 #+(and ppc32-target (not darwinppc-target))
     780#+32-bit-target
    902781(defun %single-float-acosh! (n result)
    903782  (declare (single-float n result))
    904   (ppc32::with-stack-short-floats ((temp))
     783  (target::with-stack-short-floats ((temp))
    905784    (%setf-short-float TEMP (#_acoshf n))
    906785    (%sf-check-exception-1 'acosh n (%ffi-exception-status))
    907786    (%setf-short-float result TEMP)))
    908787
    909 #+(and ppc32-target darwinppc-target)
    910 (defun %single-float-acosh! (n result)
    911   (declare (single-float n result))
    912   (with-stack-double-floats ((n2 n)
    913                              (result2))
    914     (%double-float-acosh! n2 result2)
    915     (%double-float->short-float result2 result)))
    916 
    917788#+64-bit-target
    918789(defun %single-float-acosh (n)
    … …  
    929800    (%setf-double-float result TEMP)))
    930801
    931 #+(and ppc32-target (not darwinppc-target))
     802#+32-bit-target
    932803(defun %single-float-atanh! (n result)
    933804  (declare (single-float n result))
    934   (ppc32::with-stack-short-floats ((temp))
     805  (target::with-stack-short-floats ((temp))
    935806    (%setf-short-float TEMP (#_atanhf n))
    936807    (%sf-check-exception-1 'atanh n (%ffi-exception-status))
    937808    (%setf-short-float result TEMP)))
    938 
    939 #+(and ppc32-target darwinppc-target)
    940 (defun %single-float-atanh! (n result)
    941   (declare (single-float n result))
    942   (with-stack-double-floats ((n2 n)
    943                              (result2))
    944     (%double-float-atanh! n2 result2)
    945     (%double-float->short-float result2 result)))
    946809
    947810#+64-bit-target
Note: See TracChangeset for help on using the changeset viewer.