Changeset 10130 for trunk/source/level1/l1numbers.lisp
 Timestamp:
 Jul 19, 2008, 4:23:58 AM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level1/l1numbers.lisp
r8535 r10130 474 474 (%setfdoublefloat result TEMP))) 475 475 476 #+ (and ppc32target (not darwinppctarget))476 #+32bittarget 477 477 (defun %singlefloatexpt! (b e result) 478 478 (declare (singlefloat b e result)) 479 ( ppc32::withstackshortfloats ((temp))479 (target::withstackshortfloats ((temp)) 480 480 (%setfshortfloat temp (#_powf b e)) 481 481 (%sfcheckexception2 'expt b e (%ffiexceptionstatus)) 482 482 (%setfshortfloat result TEMP))) 483 484 #+(and ppc32target darwinppctarget)485 (defun %singlefloatexpt! (b e result)486 (declare (singlefloat b e result))487 (withstackdoublefloats ((b2 b)488 (e2 e)489 (result2))490 (%doublefloatexpt! b2 e2 result2)491 (%doublefloat>shortfloat result2 result)))492 483 493 484 #+64bittarget … … 505 496 (%setfdoublefloat result TEMP))) 506 497 507 #+ (and ppc32target (not darwinppctarget))498 #+32bittarget 508 499 (defun %singlefloatsin! (n result) 509 500 (declare (singlefloat n result)) 510 ( ppc32::withstackshortfloats ((temp))501 (target::withstackshortfloats ((temp)) 511 502 (%setfshortfloat TEMP (#_sinf n)) 512 503 (%sfcheckexception1 'sin n (%ffiexceptionstatus)) 513 504 (%setfshortfloat result TEMP))) 514 505 515 #+(and ppc32target darwinppctarget)516 (defun %singlefloatsin! (n result)517 (declare (singlefloat n result))518 (withstackdoublefloats ((n2 n)519 (result2))520 (%doublefloatsin! n2 result2)521 (%doublefloat>shortfloat result2 result)))522 523 506 #+64bittarget 524 507 (defun %singlefloatsin (n) … … 535 518 (%setfdoublefloat result TEMP))) 536 519 537 #+ (and ppc32target (not darwinppctarget))520 #+32bittarget 538 521 (defun %singlefloatcos! (n result) 539 522 (declare (singlefloat n result)) 540 ( ppc32::withstackshortfloats ((temp))523 (target::withstackshortfloats ((temp)) 541 524 (%setfshortfloat TEMP (#_cosf n)) 542 525 (%sfcheckexception1 'cos n (%ffiexceptionstatus)) 543 526 (%setfshortfloat result TEMP))) 544 527 545 #+(and ppc32target darwinppctarget)546 (defun %singlefloatcos! (n result)547 (declare (singlefloat n result))548 (withstackdoublefloats ((n2 n)549 (result2))550 (%doublefloatcos! n2 result2)551 (%doublefloat>shortfloat result2 result)))552 553 528 #+64bittarget 554 529 (defun %singlefloatcos (n) … … 565 540 (%setfdoublefloat result TEMP))) 566 541 567 #+ (and ppc32target (not darwinppctarget))542 #+32bittarget 568 543 (defun %singlefloatacos! (n result) 569 544 (declare (singlefloat n result)) 570 ( ppc32::withstackshortfloats ((temp))545 (target::withstackshortfloats ((temp)) 571 546 (%setfshortfloat TEMP (#_acosf n)) 572 547 (%sfcheckexception1 'acos n (%ffiexceptionstatus)) 573 548 (%setfshortfloat result TEMP))) 574 549 575 #+(and ppc32target darwinppctarget)576 (defun %singlefloatacos! (n result)577 (declare (singlefloat n result))578 (withstackdoublefloats ((n2 n)579 (result2))580 (%doublefloatacos! n2 result2)581 (%doublefloat>shortfloat result2 result)))582 583 550 #+64bittarget 584 551 (defun %singlefloatacos (n) … … 595 562 (%setfdoublefloat result TEMP))) 596 563 597 #+ (and ppc32target (not darwinppctarget))564 #+32bittarget 598 565 (defun %singlefloatasin! (n result) 599 566 (declare (singlefloat n result)) 600 ( ppc32::withstackshortfloats ((temp))567 (target::withstackshortfloats ((temp)) 601 568 (%setfshortfloat TEMP (#_asinf n)) 602 569 (%sfcheckexception1 'asin n (%ffiexceptionstatus)) 603 570 (%setfshortfloat result TEMP))) 604 571 605 #+(and ppc32target darwinppctarget)606 (defun %singlefloatasin! (n result)607 (declare (singlefloat n result))608 (withstackdoublefloats ((n2 n)609 (result2))610 (%doublefloatasin! n2 result2)611 (%doublefloat>shortfloat result2 result)))612 613 572 #+64bittarget 614 573 (defun %singlefloatasin (n) … … 625 584 (%setfdoublefloat result TEMP))) 626 585 627 #+ (and ppc32target (not darwinppctarget))586 #+32bittarget 628 587 (defun %singlefloatcosh! (n result) 629 588 (declare (singlefloat n result)) 630 ( ppc32::withstackshortfloats ((temp))589 (target::withstackshortfloats ((temp)) 631 590 (%setfshortfloat TEMP (#_coshf n)) 632 591 (%sfcheckexception1 'cosh n (%ffiexceptionstatus)) 633 592 (%setfshortfloat result TEMP))) 634 593 635 #+(and ppc32target darwinppctarget)636 (defun %singlefloatcosh! (n result)637 (declare (singlefloat n result))638 (withstackdoublefloats ((n2 n)639 (result2))640 (%doublefloatcosh! n2 result2)641 (%doublefloat>shortfloat result2 result)))642 643 594 #+64bittarget 644 595 (defun %singlefloatcosh (n) … … 648 599 result)) 649 600 650 651 601 (defun %doublefloatlog! (n result) 652 602 (declare (doublefloat n result)) … … 656 606 (%setfdoublefloat result TEMP))) 657 607 658 #+ppc32target 659 (progn 660 #darwinppctarget 608 #+32bittarget 661 609 (defun %singlefloatlog! (n result) 662 610 (declare (singlefloat n result)) 663 ( ppc32::withstackshortfloats ((temp))611 (target::withstackshortfloats ((temp)) 664 612 (%setfshortfloat TEMP (#_logf n)) 665 613 (%sfcheckexception1 'log n (%ffiexceptionstatus)) 666 614 (%setfshortfloat result TEMP))) 667 668 #+darwinppctarget669 (defun %singlefloatlog! (n result)670 (declare (singlefloat n result))671 (withstackdoublefloats ((n2 n)672 (result2))673 (%doublefloatlog! n2 result2)674 (%doublefloat>shortfloat result2 result)))675 )676 615 677 616 #+64bittarget … … 688 627 (%setfdoublefloat result TEMP))) 689 628 690 #+ (and ppc32target (not darwinppctarget))629 #+32bittarget 691 630 (defun %singlefloattan! (n result) 692 631 (declare (singlefloat n result)) 693 ( ppc32::withstackshortfloats ((temp))632 (target::withstackshortfloats ((temp)) 694 633 (%setfshortfloat TEMP (#_tanf n)) 695 634 (%sfcheckexception1 'tan n (%ffiexceptionstatus)) 696 635 (%setfshortfloat result TEMP))) 697 636 698 #+(and ppc32target darwinppctarget)699 (defun %singlefloattan! (n result)700 (declare (singlefloat n result))701 (withstackdoublefloats ((n2 n)702 (result2))703 (%doublefloattan! n2 result2)704 (%doublefloat>shortfloat result2 result)))705 706 637 #+64bittarget 707 638 (defun %singlefloattan (n) … … 719 650 720 651 721 #+ (and ppc32target (not darwinppctarget))652 #+32bittarget 722 653 (defun %singlefloatatan! (n result) 723 654 (declare (singlefloat n result)) 724 ( ppc32::withstackshortfloats ((temp))655 (target::withstackshortfloats ((temp)) 725 656 (%setfshortfloat TEMP (#_atanf n)) 726 657 (%sfcheckexception1 'atan n (%ffiexceptionstatus)) 727 658 (%setfshortfloat result TEMP))) 728 729 #+(and ppc32target darwinppctarget)730 (defun %singlefloatatan! (n result)731 (declare (singlefloat n result))732 (withstackdoublefloats ((n2 n)733 (result2))734 (%doublefloatatan! n2 result2)735 (%doublefloat>shortfloat result2 result)))736 659 737 660 #+64bittarget … … 749 672 (%setfdoublefloat result TEMP))) 750 673 751 #+ (and ppc32target (not darwinppctarget))674 #+32bittarget 752 675 (defun %singlefloatatan2! (x y result) 753 676 (declare (singlefloat x y result)) 754 ( ppc32::withstackshortfloats ((temp))677 (target::withstackshortfloats ((temp)) 755 678 (%setfshortfloat TEMP (#_atan2f x y)) 756 679 (%sfcheckexception2 'atan2 x y (%ffiexceptionstatus)) 757 680 (%setfshortfloat result TEMP))) 758 759 #+(and ppc32target darwinppctarget)760 (defun %singlefloatatan2! (x y result)761 (declare (singlefloat x y result))762 (withstackdoublefloats ((x2 x)763 (y2 y)764 (result2))765 (%doublefloatatan2! x2 y2 result2)766 (%doublefloat>shortfloat result2 result)))767 681 768 682 #+64bittarget … … 780 694 (%setfdoublefloat result TEMP))) 781 695 782 #+ (and ppc32target (not darwinppctarget))696 #+32bittarget 783 697 (defun %singlefloatexp! (n result) 784 698 (declare (singlefloat n result)) 785 ( ppc32::withstackshortfloats ((temp))699 (target::withstackshortfloats ((temp)) 786 700 (%setfshortfloat TEMP (#_expf n)) 787 701 (%sfcheckexception1 'exp n (%ffiexceptionstatus)) 788 702 (%setfshortfloat result TEMP))) 789 703 790 #+(and ppc32target darwinppctarget)791 (defun %singlefloatexp! (n result)792 (declare (singlefloat n result))793 (withstackdoublefloats ((n2 n)794 (result2))795 (%doublefloatexp! n2 result2)796 (%doublefloat>shortfloat result2 result)))797 798 704 #+64bittarget 799 705 (defun %singlefloatexp (n) … … 810 716 (%setfdoublefloat result TEMP))) 811 717 812 #+ (and ppc32target (not darwinppctarget))718 #+32bittarget 813 719 (defun %singlefloatsinh! (n result) 814 720 (declare (singlefloat n result)) 815 ( ppc32::withstackshortfloats ((temp))721 (target::withstackshortfloats ((temp)) 816 722 (%setfshortfloat TEMP (#_sinhf n)) 817 723 (%sfcheckexception1 'sinh n (%ffiexceptionstatus)) 818 724 (%setfshortfloat result TEMP))) 819 725 820 #+(and darwinppctarget ppc32target)821 (defun %singlefloatsinh! (n result)822 (declare (singlefloat n result))823 (withstackdoublefloats ((n2 n)824 (result2))825 (%doublefloatsinh! n2 result2)826 (%doublefloat>shortfloat result2 result)))827 828 726 #+64bittarget 829 727 (defun %singlefloatsinh (n) … … 833 731 result)) 834 732 835 836 837 733 (defun %doublefloattanh! (n result) 838 734 (declare (doublefloat n result)) … … 842 738 (%setfdoublefloat result TEMP))) 843 739 844 845 #+(and ppc32target (not darwinppctarget)) 740 #+32bittarget 846 741 (defun %singlefloattanh! (n result) 847 742 (declare (singlefloat n result)) 848 ( ppc32::withstackshortfloats ((temp))743 (target::withstackshortfloats ((temp)) 849 744 (%setfshortfloat TEMP (#_tanhf n)) 850 745 (%sfcheckexception1 'tanh n (%ffiexceptionstatus)) 851 746 (%setfshortfloat result TEMP))) 852 747 853 #+(and ppc32target darwinppctarget)854 (defun %singlefloattanh! (n result)855 (declare (singlefloat n result))856 (withstackdoublefloats ((n2 n)857 (result2))858 (%doublefloattanh! n2 result2)859 (%doublefloat>shortfloat result2 result)))860 861 748 #+64bittarget 862 749 (defun %singlefloattanh (n) … … 874 761 875 762 876 #+ (and ppc32target (not darwinppctarget))763 #+32bittarget 877 764 (defun %singlefloatasinh! (n result) 878 765 (declare (singlefloat n result)) 879 ( ppc32::withstackshortfloats ((temp))766 (target::withstackshortfloats ((temp)) 880 767 (%setfshortfloat TEMP (#_asinhf n)) 881 768 (%sfcheckexception1 'asinh n (%ffiexceptionstatus)) 882 769 (%setfshortfloat result TEMP))) 883 770 884 #+(and ppc32target darwinppctarget)885 (defun %singlefloatasinh! (n result)886 (declare (singlefloat n result))887 (withstackdoublefloats ((n2 n)888 (result2))889 (%doublefloatasinh! n2 result2)890 (%doublefloat>shortfloat result2 result)))891 892 771 #+64bittarget 893 772 (defun %singlefloatasinh (n) … … 904 783 (%setfdoublefloat result TEMP))) 905 784 906 #+ (and ppc32target (not darwinppctarget))785 #+32bittarget 907 786 (defun %singlefloatacosh! (n result) 908 787 (declare (singlefloat n result)) 909 ( ppc32::withstackshortfloats ((temp))788 (target::withstackshortfloats ((temp)) 910 789 (%setfshortfloat TEMP (#_acoshf n)) 911 790 (%sfcheckexception1 'acosh n (%ffiexceptionstatus)) 912 791 (%setfshortfloat result TEMP))) 913 792 914 #+(and ppc32target darwinppctarget)915 (defun %singlefloatacosh! (n result)916 (declare (singlefloat n result))917 (withstackdoublefloats ((n2 n)918 (result2))919 (%doublefloatacosh! n2 result2)920 (%doublefloat>shortfloat result2 result)))921 922 793 #+64bittarget 923 794 (defun %singlefloatacosh (n) … … 934 805 (%setfdoublefloat result TEMP))) 935 806 936 #+ (and ppc32target (not darwinppctarget))807 #+32bittarget 937 808 (defun %singlefloatatanh! (n result) 938 809 (declare (singlefloat n result)) 939 ( ppc32::withstackshortfloats ((temp))810 (target::withstackshortfloats ((temp)) 940 811 (%setfshortfloat TEMP (#_atanhf n)) 941 812 (%sfcheckexception1 'atanh n (%ffiexceptionstatus)) 942 813 (%setfshortfloat result TEMP))) 943 944 #+(and ppc32target darwinppctarget)945 (defun %singlefloatatanh! (n result)946 (declare (singlefloat n result))947 (withstackdoublefloats ((n2 n)948 (result2))949 (%doublefloatatanh! n2 result2)950 (%doublefloat>shortfloat result2 result)))951 814 952 815 #+64bittarget
Note: See TracChangeset
for help on using the changeset viewer.