Changeset 10530
- Timestamp:
- 08/22/08 10:09:25 (3 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/working-0711/ccl/level-1/l1-numbers.lisp
r9578 r10530 469 469 (%setf-double-float result TEMP))) 470 470 471 #+ (and ppc32-target (not darwinppc-target))471 #+32-bit-target 472 472 (defun %single-float-expt! (b e result) 473 473 (declare (single-float b e result)) 474 ( ppc32::with-stack-short-floats ((temp))474 (target::with-stack-short-floats ((temp)) 475 475 (%setf-short-float temp (#_powf b e)) 476 476 (%sf-check-exception-2 'expt b e (%ffi-exception-status)) 477 477 (%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)))487 478 488 479 #+64-bit-target … … 500 491 (%setf-double-float result TEMP))) 501 492 502 #+ (and ppc32-target (not darwinppc-target))493 #+32-bit-target 503 494 (defun %single-float-sin! (n result) 504 495 (declare (single-float n result)) 505 ( ppc32::with-stack-short-floats ((temp))496 (target::with-stack-short-floats ((temp)) 506 497 (%setf-short-float TEMP (#_sinf n)) 507 498 (%sf-check-exception-1 'sin n (%ffi-exception-status)) 508 499 (%setf-short-float result TEMP))) 509 500 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 518 501 #+64-bit-target 519 502 (defun %single-float-sin (n) … … 530 513 (%setf-double-float result TEMP))) 531 514 532 #+ (and ppc32-target (not darwinppc-target))515 #+32-bit-target 533 516 (defun %single-float-cos! (n result) 534 517 (declare (single-float n result)) 535 ( ppc32::with-stack-short-floats ((temp))518 (target::with-stack-short-floats ((temp)) 536 519 (%setf-short-float TEMP (#_cosf n)) 537 520 (%sf-check-exception-1 'cos n (%ffi-exception-status)) 538 521 (%setf-short-float result TEMP))) 539 522 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 548 523 #+64-bit-target 549 524 (defun %single-float-cos (n) … … 560 535 (%setf-double-float result TEMP))) 561 536 562 #+ (and ppc32-target (not darwinppc-target))537 #+32-bit-target 563 538 (defun %single-float-acos! (n result) 564 539 (declare (single-float n result)) 565 ( ppc32::with-stack-short-floats ((temp))540 (target::with-stack-short-floats ((temp)) 566 541 (%setf-short-float TEMP (#_acosf n)) 567 542 (%sf-check-exception-1 'acos n (%ffi-exception-status)) 568 543 (%setf-short-float result TEMP))) 569 544 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 578 545 #+64-bit-target 579 546 (defun %single-float-acos (n) … … 590 557 (%setf-double-float result TEMP))) 591 558 592 #+ (and ppc32-target (not darwinppc-target))559 #+32-bit-target 593 560 (defun %single-float-asin! (n result) 594 561 (declare (single-float n result)) 595 ( ppc32::with-stack-short-floats ((temp))562 (target::with-stack-short-floats ((temp)) 596 563 (%setf-short-float TEMP (#_asinf n)) 597 564 (%sf-check-exception-1 'asin n (%ffi-exception-status)) 598 565 (%setf-short-float result TEMP))) 599 566 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 608 567 #+64-bit-target 609 568 (defun %single-float-asin (n) … … 620 579 (%setf-double-float result TEMP))) 621 580 622 #+ (and ppc32-target (not darwinppc-target))581 #+32-bit-target 623 582 (defun %single-float-cosh! (n result) 624 583 (declare (single-float n result)) 625 ( ppc32::with-stack-short-floats ((temp))584 (target::with-stack-short-floats ((temp)) 626 585 (%setf-short-float TEMP (#_coshf n)) 627 586 (%sf-check-exception-1 'cosh n (%ffi-exception-status)) 628 587 (%setf-short-float result TEMP))) 629 588 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 638 589 #+64-bit-target 639 590 (defun %single-float-cosh (n) … … 643 594 result)) 644 595 645 646 596 (defun %double-float-log! (n result) 647 597 (declare (double-float n result)) … … 651 601 (%setf-double-float result TEMP))) 652 602 653 #+ppc32-target 654 (progn 655 #-darwinppc-target 603 #+32-bit-target 656 604 (defun %single-float-log! (n result) 657 605 (declare (single-float n result)) 658 ( ppc32::with-stack-short-floats ((temp))606 (target::with-stack-short-floats ((temp)) 659 607 (%setf-short-float TEMP (#_logf n)) 660 608 (%sf-check-exception-1 'log n (%ffi-exception-status)) 661 609 (%setf-short-float result TEMP))) 662 663 #+darwinppc-target664 (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 )671 610 672 611 #+64-bit-target … … 683 622 (%setf-double-float result TEMP))) 684 623 685 #+ (and ppc32-target (not darwinppc-target))624 #+32-bit-target 686 625 (defun %single-float-tan! (n result) 687 626 (declare (single-float n result)) 688 ( ppc32::with-stack-short-floats ((temp))627 (target::with-stack-short-floats ((temp)) 689 628 (%setf-short-float TEMP (#_tanf n)) 690 629 (%sf-check-exception-1 'tan n (%ffi-exception-status)) 691 630 (%setf-short-float result TEMP))) 692 631 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 701 632 #+64-bit-target 702 633 (defun %single-float-tan (n) … … 714 645 715 646 716 #+ (and ppc32-target (not darwinppc-target))647 #+32-bit-target 717 648 (defun %single-float-atan! (n result) 718 649 (declare (single-float n result)) 719 ( ppc32::with-stack-short-floats ((temp))650 (target::with-stack-short-floats ((temp)) 720 651 (%setf-short-float TEMP (#_atanf n)) 721 652 (%sf-check-exception-1 'atan n (%ffi-exception-status)) 722 653 (%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)))731 654 732 655 #+64-bit-target … … 744 667 (%setf-double-float result TEMP))) 745 668 746 #+ (and ppc32-target (not darwinppc-target))669 #+32-bit-target 747 670 (defun %single-float-atan2! (x y result) 748 671 (declare (single-float x y result)) 749 ( ppc32::with-stack-short-floats ((temp))672 (target::with-stack-short-floats ((temp)) 750 673 (%setf-short-float TEMP (#_atan2f x y)) 751 674 (%sf-check-exception-2 'atan2 x y (%ffi-exception-status)) 752 675 (%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)))762 676 763 677 #+64-bit-target … … 775 689 (%setf-double-float result TEMP))) 776 690 777 #+ (and ppc32-target (not darwinppc-target))691 #+32-bit-target 778 692 (defun %single-float-exp! (n result) 779 693 (declare (single-float n result)) 780 ( ppc32::with-stack-short-floats ((temp))694 (target::with-stack-short-floats ((temp)) 781 695 (%setf-short-float TEMP (#_expf n)) 782 696 (%sf-check-exception-1 'exp n (%ffi-exception-status)) 783 697 (%setf-short-float result TEMP))) 784 698 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 793 699 #+64-bit-target 794 700 (defun %single-float-exp (n) … … 805 711 (%setf-double-float result TEMP))) 806 712 807 #+ (and ppc32-target (not darwinppc-target))713 #+32-bit-target 808 714 (defun %single-float-sinh! (n result) 809 715 (declare (single-float n result)) 810 ( ppc32::with-stack-short-floats ((temp))716 (target::with-stack-short-floats ((temp)) 811 717 (%setf-short-float TEMP (#_sinhf n)) 812 718 (%sf-check-exception-1 'sinh n (%ffi-exception-status)) 813 719 (%setf-short-float result TEMP))) 814 720 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 823 721 #+64-bit-target 824 722 (defun %single-float-sinh (n) … … 828 726 result)) 829 727 830 831 832 728 (defun %double-float-tanh! (n result) 833 729 (declare (double-float n result)) … … 837 733 (%setf-double-float result TEMP))) 838 734 839 840 #+(and ppc32-target (not darwinppc-target)) 735 #+32-bit-target 841 736 (defun %single-float-tanh! (n result) 842 737 (declare (single-float n result)) 843 ( ppc32::with-stack-short-floats ((temp))738 (target::with-stack-short-floats ((temp)) 844 739 (%setf-short-float TEMP (#_tanhf n)) 845 740 (%sf-check-exception-1 'tanh n (%ffi-exception-status)) 846 741 (%setf-short-float result TEMP))) 847 742 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 856 743 #+64-bit-target 857 744 (defun %single-float-tanh (n) … … 869 756 870 757 871 #+ (and ppc32-target (not darwinppc-target))758 #+32-bit-target 872 759 (defun %single-float-asinh! (n result) 873 760 (declare (single-float n result)) 874 ( ppc32::with-stack-short-floats ((temp))761 (target::with-stack-short-floats ((temp)) 875 762 (%setf-short-float TEMP (#_asinhf n)) 876 763 (%sf-check-exception-1 'asinh n (%ffi-exception-status)) 877 764 (%setf-short-float result TEMP))) 878 765 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 887 766 #+64-bit-target 888 767 (defun %single-float-asinh (n) … … 899 778 (%setf-double-float result TEMP))) 900 779 901 #+ (and ppc32-target (not darwinppc-target))780 #+32-bit-target 902 781 (defun %single-float-acosh! (n result) 903 782 (declare (single-float n result)) 904 ( ppc32::with-stack-short-floats ((temp))783 (target::with-stack-short-floats ((temp)) 905 784 (%setf-short-float TEMP (#_acoshf n)) 906 785 (%sf-check-exception-1 'acosh n (%ffi-exception-status)) 907 786 (%setf-short-float result TEMP))) 908 787 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 917 788 #+64-bit-target 918 789 (defun %single-float-acosh (n) … … 929 800 (%setf-double-float result TEMP))) 930 801 931 #+ (and ppc32-target (not darwinppc-target))802 #+32-bit-target 932 803 (defun %single-float-atanh! (n result) 933 804 (declare (single-float n result)) 934 ( ppc32::with-stack-short-floats ((temp))805 (target::with-stack-short-floats ((temp)) 935 806 (%setf-short-float TEMP (#_atanhf n)) 936 807 (%sf-check-exception-1 'atanh n (%ffi-exception-status)) 937 808 (%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)))946 809 947 810 #+64-bit-target
