Changeset 10530
 Timestamp:
 Aug 22, 2008, 2:09:25 PM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/working0711/ccl/level1/l1numbers.lisp
r9578 r10530 469 469 (%setfdoublefloat result TEMP))) 470 470 471 #+ (and ppc32target (not darwinppctarget))471 #+32bittarget 472 472 (defun %singlefloatexpt! (b e result) 473 473 (declare (singlefloat b e result)) 474 ( ppc32::withstackshortfloats ((temp))474 (target::withstackshortfloats ((temp)) 475 475 (%setfshortfloat temp (#_powf b e)) 476 476 (%sfcheckexception2 'expt b e (%ffiexceptionstatus)) 477 477 (%setfshortfloat result TEMP))) 478 479 #+(and ppc32target darwinppctarget)480 (defun %singlefloatexpt! (b e result)481 (declare (singlefloat b e result))482 (withstackdoublefloats ((b2 b)483 (e2 e)484 (result2))485 (%doublefloatexpt! b2 e2 result2)486 (%doublefloat>shortfloat result2 result)))487 478 488 479 #+64bittarget … … 500 491 (%setfdoublefloat result TEMP))) 501 492 502 #+ (and ppc32target (not darwinppctarget))493 #+32bittarget 503 494 (defun %singlefloatsin! (n result) 504 495 (declare (singlefloat n result)) 505 ( ppc32::withstackshortfloats ((temp))496 (target::withstackshortfloats ((temp)) 506 497 (%setfshortfloat TEMP (#_sinf n)) 507 498 (%sfcheckexception1 'sin n (%ffiexceptionstatus)) 508 499 (%setfshortfloat result TEMP))) 509 500 510 #+(and ppc32target darwinppctarget)511 (defun %singlefloatsin! (n result)512 (declare (singlefloat n result))513 (withstackdoublefloats ((n2 n)514 (result2))515 (%doublefloatsin! n2 result2)516 (%doublefloat>shortfloat result2 result)))517 518 501 #+64bittarget 519 502 (defun %singlefloatsin (n) … … 530 513 (%setfdoublefloat result TEMP))) 531 514 532 #+ (and ppc32target (not darwinppctarget))515 #+32bittarget 533 516 (defun %singlefloatcos! (n result) 534 517 (declare (singlefloat n result)) 535 ( ppc32::withstackshortfloats ((temp))518 (target::withstackshortfloats ((temp)) 536 519 (%setfshortfloat TEMP (#_cosf n)) 537 520 (%sfcheckexception1 'cos n (%ffiexceptionstatus)) 538 521 (%setfshortfloat result TEMP))) 539 522 540 #+(and ppc32target darwinppctarget)541 (defun %singlefloatcos! (n result)542 (declare (singlefloat n result))543 (withstackdoublefloats ((n2 n)544 (result2))545 (%doublefloatcos! n2 result2)546 (%doublefloat>shortfloat result2 result)))547 548 523 #+64bittarget 549 524 (defun %singlefloatcos (n) … … 560 535 (%setfdoublefloat result TEMP))) 561 536 562 #+ (and ppc32target (not darwinppctarget))537 #+32bittarget 563 538 (defun %singlefloatacos! (n result) 564 539 (declare (singlefloat n result)) 565 ( ppc32::withstackshortfloats ((temp))540 (target::withstackshortfloats ((temp)) 566 541 (%setfshortfloat TEMP (#_acosf n)) 567 542 (%sfcheckexception1 'acos n (%ffiexceptionstatus)) 568 543 (%setfshortfloat result TEMP))) 569 544 570 #+(and ppc32target darwinppctarget)571 (defun %singlefloatacos! (n result)572 (declare (singlefloat n result))573 (withstackdoublefloats ((n2 n)574 (result2))575 (%doublefloatacos! n2 result2)576 (%doublefloat>shortfloat result2 result)))577 578 545 #+64bittarget 579 546 (defun %singlefloatacos (n) … … 590 557 (%setfdoublefloat result TEMP))) 591 558 592 #+ (and ppc32target (not darwinppctarget))559 #+32bittarget 593 560 (defun %singlefloatasin! (n result) 594 561 (declare (singlefloat n result)) 595 ( ppc32::withstackshortfloats ((temp))562 (target::withstackshortfloats ((temp)) 596 563 (%setfshortfloat TEMP (#_asinf n)) 597 564 (%sfcheckexception1 'asin n (%ffiexceptionstatus)) 598 565 (%setfshortfloat result TEMP))) 599 566 600 #+(and ppc32target darwinppctarget)601 (defun %singlefloatasin! (n result)602 (declare (singlefloat n result))603 (withstackdoublefloats ((n2 n)604 (result2))605 (%doublefloatasin! n2 result2)606 (%doublefloat>shortfloat result2 result)))607 608 567 #+64bittarget 609 568 (defun %singlefloatasin (n) … … 620 579 (%setfdoublefloat result TEMP))) 621 580 622 #+ (and ppc32target (not darwinppctarget))581 #+32bittarget 623 582 (defun %singlefloatcosh! (n result) 624 583 (declare (singlefloat n result)) 625 ( ppc32::withstackshortfloats ((temp))584 (target::withstackshortfloats ((temp)) 626 585 (%setfshortfloat TEMP (#_coshf n)) 627 586 (%sfcheckexception1 'cosh n (%ffiexceptionstatus)) 628 587 (%setfshortfloat result TEMP))) 629 588 630 #+(and ppc32target darwinppctarget)631 (defun %singlefloatcosh! (n result)632 (declare (singlefloat n result))633 (withstackdoublefloats ((n2 n)634 (result2))635 (%doublefloatcosh! n2 result2)636 (%doublefloat>shortfloat result2 result)))637 638 589 #+64bittarget 639 590 (defun %singlefloatcosh (n) … … 643 594 result)) 644 595 645 646 596 (defun %doublefloatlog! (n result) 647 597 (declare (doublefloat n result)) … … 651 601 (%setfdoublefloat result TEMP))) 652 602 653 #+ppc32target 654 (progn 655 #darwinppctarget 603 #+32bittarget 656 604 (defun %singlefloatlog! (n result) 657 605 (declare (singlefloat n result)) 658 ( ppc32::withstackshortfloats ((temp))606 (target::withstackshortfloats ((temp)) 659 607 (%setfshortfloat TEMP (#_logf n)) 660 608 (%sfcheckexception1 'log n (%ffiexceptionstatus)) 661 609 (%setfshortfloat result TEMP))) 662 663 #+darwinppctarget664 (defun %singlefloatlog! (n result)665 (declare (singlefloat n result))666 (withstackdoublefloats ((n2 n)667 (result2))668 (%doublefloatlog! n2 result2)669 (%doublefloat>shortfloat result2 result)))670 )671 610 672 611 #+64bittarget … … 683 622 (%setfdoublefloat result TEMP))) 684 623 685 #+ (and ppc32target (not darwinppctarget))624 #+32bittarget 686 625 (defun %singlefloattan! (n result) 687 626 (declare (singlefloat n result)) 688 ( ppc32::withstackshortfloats ((temp))627 (target::withstackshortfloats ((temp)) 689 628 (%setfshortfloat TEMP (#_tanf n)) 690 629 (%sfcheckexception1 'tan n (%ffiexceptionstatus)) 691 630 (%setfshortfloat result TEMP))) 692 631 693 #+(and ppc32target darwinppctarget)694 (defun %singlefloattan! (n result)695 (declare (singlefloat n result))696 (withstackdoublefloats ((n2 n)697 (result2))698 (%doublefloattan! n2 result2)699 (%doublefloat>shortfloat result2 result)))700 701 632 #+64bittarget 702 633 (defun %singlefloattan (n) … … 714 645 715 646 716 #+ (and ppc32target (not darwinppctarget))647 #+32bittarget 717 648 (defun %singlefloatatan! (n result) 718 649 (declare (singlefloat n result)) 719 ( ppc32::withstackshortfloats ((temp))650 (target::withstackshortfloats ((temp)) 720 651 (%setfshortfloat TEMP (#_atanf n)) 721 652 (%sfcheckexception1 'atan n (%ffiexceptionstatus)) 722 653 (%setfshortfloat result TEMP))) 723 724 #+(and ppc32target darwinppctarget)725 (defun %singlefloatatan! (n result)726 (declare (singlefloat n result))727 (withstackdoublefloats ((n2 n)728 (result2))729 (%doublefloatatan! n2 result2)730 (%doublefloat>shortfloat result2 result)))731 654 732 655 #+64bittarget … … 744 667 (%setfdoublefloat result TEMP))) 745 668 746 #+ (and ppc32target (not darwinppctarget))669 #+32bittarget 747 670 (defun %singlefloatatan2! (x y result) 748 671 (declare (singlefloat x y result)) 749 ( ppc32::withstackshortfloats ((temp))672 (target::withstackshortfloats ((temp)) 750 673 (%setfshortfloat TEMP (#_atan2f x y)) 751 674 (%sfcheckexception2 'atan2 x y (%ffiexceptionstatus)) 752 675 (%setfshortfloat result TEMP))) 753 754 #+(and ppc32target darwinppctarget)755 (defun %singlefloatatan2! (x y result)756 (declare (singlefloat x y result))757 (withstackdoublefloats ((x2 x)758 (y2 y)759 (result2))760 (%doublefloatatan2! x2 y2 result2)761 (%doublefloat>shortfloat result2 result)))762 676 763 677 #+64bittarget … … 775 689 (%setfdoublefloat result TEMP))) 776 690 777 #+ (and ppc32target (not darwinppctarget))691 #+32bittarget 778 692 (defun %singlefloatexp! (n result) 779 693 (declare (singlefloat n result)) 780 ( ppc32::withstackshortfloats ((temp))694 (target::withstackshortfloats ((temp)) 781 695 (%setfshortfloat TEMP (#_expf n)) 782 696 (%sfcheckexception1 'exp n (%ffiexceptionstatus)) 783 697 (%setfshortfloat result TEMP))) 784 698 785 #+(and ppc32target darwinppctarget)786 (defun %singlefloatexp! (n result)787 (declare (singlefloat n result))788 (withstackdoublefloats ((n2 n)789 (result2))790 (%doublefloatexp! n2 result2)791 (%doublefloat>shortfloat result2 result)))792 793 699 #+64bittarget 794 700 (defun %singlefloatexp (n) … … 805 711 (%setfdoublefloat result TEMP))) 806 712 807 #+ (and ppc32target (not darwinppctarget))713 #+32bittarget 808 714 (defun %singlefloatsinh! (n result) 809 715 (declare (singlefloat n result)) 810 ( ppc32::withstackshortfloats ((temp))716 (target::withstackshortfloats ((temp)) 811 717 (%setfshortfloat TEMP (#_sinhf n)) 812 718 (%sfcheckexception1 'sinh n (%ffiexceptionstatus)) 813 719 (%setfshortfloat result TEMP))) 814 720 815 #+(and darwinppctarget ppc32target)816 (defun %singlefloatsinh! (n result)817 (declare (singlefloat n result))818 (withstackdoublefloats ((n2 n)819 (result2))820 (%doublefloatsinh! n2 result2)821 (%doublefloat>shortfloat result2 result)))822 823 721 #+64bittarget 824 722 (defun %singlefloatsinh (n) … … 828 726 result)) 829 727 830 831 832 728 (defun %doublefloattanh! (n result) 833 729 (declare (doublefloat n result)) … … 837 733 (%setfdoublefloat result TEMP))) 838 734 839 840 #+(and ppc32target (not darwinppctarget)) 735 #+32bittarget 841 736 (defun %singlefloattanh! (n result) 842 737 (declare (singlefloat n result)) 843 ( ppc32::withstackshortfloats ((temp))738 (target::withstackshortfloats ((temp)) 844 739 (%setfshortfloat TEMP (#_tanhf n)) 845 740 (%sfcheckexception1 'tanh n (%ffiexceptionstatus)) 846 741 (%setfshortfloat result TEMP))) 847 742 848 #+(and ppc32target darwinppctarget)849 (defun %singlefloattanh! (n result)850 (declare (singlefloat n result))851 (withstackdoublefloats ((n2 n)852 (result2))853 (%doublefloattanh! n2 result2)854 (%doublefloat>shortfloat result2 result)))855 856 743 #+64bittarget 857 744 (defun %singlefloattanh (n) … … 869 756 870 757 871 #+ (and ppc32target (not darwinppctarget))758 #+32bittarget 872 759 (defun %singlefloatasinh! (n result) 873 760 (declare (singlefloat n result)) 874 ( ppc32::withstackshortfloats ((temp))761 (target::withstackshortfloats ((temp)) 875 762 (%setfshortfloat TEMP (#_asinhf n)) 876 763 (%sfcheckexception1 'asinh n (%ffiexceptionstatus)) 877 764 (%setfshortfloat result TEMP))) 878 765 879 #+(and ppc32target darwinppctarget)880 (defun %singlefloatasinh! (n result)881 (declare (singlefloat n result))882 (withstackdoublefloats ((n2 n)883 (result2))884 (%doublefloatasinh! n2 result2)885 (%doublefloat>shortfloat result2 result)))886 887 766 #+64bittarget 888 767 (defun %singlefloatasinh (n) … … 899 778 (%setfdoublefloat result TEMP))) 900 779 901 #+ (and ppc32target (not darwinppctarget))780 #+32bittarget 902 781 (defun %singlefloatacosh! (n result) 903 782 (declare (singlefloat n result)) 904 ( ppc32::withstackshortfloats ((temp))783 (target::withstackshortfloats ((temp)) 905 784 (%setfshortfloat TEMP (#_acoshf n)) 906 785 (%sfcheckexception1 'acosh n (%ffiexceptionstatus)) 907 786 (%setfshortfloat result TEMP))) 908 787 909 #+(and ppc32target darwinppctarget)910 (defun %singlefloatacosh! (n result)911 (declare (singlefloat n result))912 (withstackdoublefloats ((n2 n)913 (result2))914 (%doublefloatacosh! n2 result2)915 (%doublefloat>shortfloat result2 result)))916 917 788 #+64bittarget 918 789 (defun %singlefloatacosh (n) … … 929 800 (%setfdoublefloat result TEMP))) 930 801 931 #+ (and ppc32target (not darwinppctarget))802 #+32bittarget 932 803 (defun %singlefloatatanh! (n result) 933 804 (declare (singlefloat n result)) 934 ( ppc32::withstackshortfloats ((temp))805 (target::withstackshortfloats ((temp)) 935 806 (%setfshortfloat TEMP (#_atanhf n)) 936 807 (%sfcheckexception1 'atanh n (%ffiexceptionstatus)) 937 808 (%setfshortfloat result TEMP))) 938 939 #+(and ppc32target darwinppctarget)940 (defun %singlefloatatanh! (n result)941 (declare (singlefloat n result))942 (withstackdoublefloats ((n2 n)943 (result2))944 (%doublefloatatanh! n2 result2)945 (%doublefloat>shortfloat result2 result)))946 809 947 810 #+64bittarget
Note: See TracChangeset
for help on using the changeset viewer.