Changeset 14039
- Timestamp:
- Jul 24, 2010, 11:38:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/arm/level-1/l1-numbers.lisp
r13373 r14039 513 513 (declare (double-float b e result)) 514 514 (with-stack-double-floats ((temp)) 515 #+arm-target (%set-fpscr-status 0) 515 516 (%setf-double-float temp (#_pow b e)) 516 517 (%df-check-exception-2 'expt b e (%ffi-exception-status)) … … 521 522 (declare (single-float b e result)) 522 523 (target::with-stack-short-floats ((temp)) 524 #+arm-target (%set-fpscr-status 0) 523 525 (%setf-short-float temp (#_powf b e)) 524 526 (%sf-check-exception-2 'expt b e (%ffi-exception-status)) … … 543 545 (declare (double-float n result)) 544 546 (with-stack-double-floats ((temp)) 547 #+arm-target (%set-fpscr-status 0) 545 548 (%setf-double-float TEMP (#_sin n)) 546 549 (%df-check-exception-1 'sin n (%ffi-exception-status)) … … 551 554 (declare (single-float n result)) 552 555 (target::with-stack-short-floats ((temp)) 556 #+arm-target (%set-fpscr-status 0) 553 557 (%setf-short-float TEMP (#_sinf n)) 554 558 (%sf-check-exception-1 'sin n (%ffi-exception-status)) … … 565 569 (declare (double-float n result)) 566 570 (with-stack-double-floats ((temp)) 571 #+arm-target (%set-fpscr-status 0) 567 572 (%setf-double-float TEMP (#_cos n)) 568 573 (%df-check-exception-1 'cos n (%ffi-exception-status)) … … 573 578 (declare (single-float n result)) 574 579 (target::with-stack-short-floats ((temp)) 580 #+arm-target (%set-fpscr-status 0) 575 581 (%setf-short-float TEMP (#_cosf n)) 576 582 (%sf-check-exception-1 'cos n (%ffi-exception-status)) … … 587 593 (declare (double-float n result)) 588 594 (with-stack-double-floats ((temp)) 595 #+arm-target (%set-fpscr-status 0) 589 596 (%setf-double-float TEMP (#_acos n)) 590 597 (%df-check-exception-1 'acos n (%ffi-exception-status)) … … 595 602 (declare (single-float n result)) 596 603 (target::with-stack-short-floats ((temp)) 604 #+arm-target (%set-fpscr-status 0) 597 605 (%setf-short-float TEMP (#_acosf n)) 598 606 (%sf-check-exception-1 'acos n (%ffi-exception-status)) … … 609 617 (declare (double-float n result)) 610 618 (with-stack-double-floats ((temp)) 619 #+arm-target (%set-fpscr-status 0) 611 620 (%setf-double-float TEMP (#_asin n)) 612 621 (%df-check-exception-1 'asin n (%ffi-exception-status)) … … 617 626 (declare (single-float n result)) 618 627 (target::with-stack-short-floats ((temp)) 628 #+arm-target (%set-fpscr-status 0) 619 629 (%setf-short-float TEMP (#_asinf n)) 620 630 (%sf-check-exception-1 'asin n (%ffi-exception-status)) … … 631 641 (declare (double-float n result)) 632 642 (with-stack-double-floats ((temp)) 643 #+arm-target (%set-fpscr-status 0) 633 644 (%setf-double-float TEMP (#_cosh n)) 634 645 (%df-check-exception-1 'cosh n (%ffi-exception-status)) … … 639 650 (declare (single-float n result)) 640 651 (target::with-stack-short-floats ((temp)) 652 #+arm-target (%set-fpscr-status 0) 641 653 (%setf-short-float TEMP (external-call "coshf" :single-float n :single-float)) 642 654 (%sf-check-exception-1 'cosh n (%ffi-exception-status)) … … 653 665 (declare (double-float n result)) 654 666 (with-stack-double-floats ((temp)) 667 #+arm-target (%set-fpscr-status 0) 655 668 (%setf-double-float TEMP (#_log n)) 656 669 (%df-check-exception-1 'log n (%ffi-exception-status)) … … 661 674 (declare (single-float n result)) 662 675 (target::with-stack-short-floats ((temp)) 676 #+arm-target (%set-fpscr-status 0) 663 677 (%setf-short-float TEMP (#_logf n)) 664 678 (%sf-check-exception-1 'log n (%ffi-exception-status)) … … 674 688 (declare (double-float n result)) 675 689 (with-stack-double-floats ((temp)) 690 #+arm-target (%set-fpscr-status 0) 676 691 (%setf-double-float TEMP (#_tan n)) 677 692 (%df-check-exception-1 'tan n (%ffi-exception-status)) … … 682 697 (declare (single-float n result)) 683 698 (target::with-stack-short-floats ((temp)) 699 #+arm-target (%set-fpscr-status 0) 684 700 (%setf-short-float TEMP (#_tanf n)) 685 701 (%sf-check-exception-1 'tan n (%ffi-exception-status)) … … 696 712 (declare (double-float n result)) 697 713 (with-stack-double-floats ((temp)) 714 #+arm-target (%set-fpscr-status 0) 698 715 (%setf-double-float TEMP (#_atan n)) 699 716 (%df-check-exception-1 'atan n (%ffi-exception-status)) … … 705 722 (declare (single-float n result)) 706 723 (target::with-stack-short-floats ((temp)) 724 #+arm-target (%set-fpscr-status 0) 707 725 (%setf-short-float TEMP (#_atanf n)) 708 726 (%sf-check-exception-1 'atan n (%ffi-exception-status)) … … 719 737 (declare (double-float x y result)) 720 738 (with-stack-double-floats ((temp)) 739 #+arm-target (%set-fpscr-status 0) 721 740 (%setf-double-float TEMP (#_atan2 x y)) 722 741 (%df-check-exception-2 'atan2 x y (%ffi-exception-status)) … … 727 746 (declare (single-float x y result)) 728 747 (target::with-stack-short-floats ((temp)) 748 #+arm-target (%set-fpscr-status 0) 729 749 (%setf-short-float TEMP (#_atan2f x y)) 730 750 (%sf-check-exception-2 'atan2 x y (%ffi-exception-status)) … … 741 761 (declare (double-float n result)) 742 762 (with-stack-double-floats ((temp)) 763 #+arm-target (%set-fpscr-status 0) 743 764 (%setf-double-float TEMP (#_exp n)) 744 765 (%df-check-exception-1 'exp n (%ffi-exception-status)) … … 749 770 (declare (single-float n result)) 750 771 (target::with-stack-short-floats ((temp)) 772 #+arm-target (%set-fpscr-status 0) 751 773 (%setf-short-float TEMP (#_expf n)) 752 774 (%sf-check-exception-1 'exp n (%ffi-exception-status)) … … 771 793 (declare (double-float n result)) 772 794 (with-stack-double-floats ((temp)) 795 #+arm-target (%set-fpscr-status 0) 773 796 (%setf-double-float TEMP (#_sinh n)) 774 797 (%df-check-exception-1 'sinh n (%ffi-exception-status)) … … 779 802 (declare (single-float n result)) 780 803 (target::with-stack-short-floats ((temp)) 804 #+arm-target (%set-fpscr-status 0) 781 805 (%setf-short-float TEMP (external-call "sinhf" :single-float n :single-float)) 782 806 (%sf-check-exception-1 'sinh n (%ffi-exception-status)) … … 793 817 (declare (double-float n result)) 794 818 (with-stack-double-floats ((temp)) 819 #+arm-target (%set-fpscr-status 0) 795 820 (%setf-double-float TEMP (#_tanh n)) 796 821 (%df-check-exception-1 'tanh n (%ffi-exception-status)) … … 801 826 (declare (single-float n result)) 802 827 (target::with-stack-short-floats ((temp)) 828 #+arm-target (%set-fpscr-status 0) 803 829 (%setf-short-float TEMP (external-call "tanhf" :single-float n :single-float)) 804 830 (%sf-check-exception-1 'tanh n (%ffi-exception-status)) … … 825 851 (declare (single-float n result)) 826 852 (target::with-stack-short-floats ((temp)) 853 #+arm-target (%set-fpscr-status 0) 827 854 (%setf-short-float TEMP (external-call "asinhf" :float n :float)) 828 855 (%sf-check-exception-1 'asinh n (%ffi-exception-status)) … … 841 868 (declare (double-float n result)) 842 869 (with-stack-double-floats ((temp)) 870 #+arm-target (%set-fpscr-status 0) 843 871 (%setf-double-float TEMP (#_asinh n)) 844 872 (%df-check-exception-1 'asinh n (%ffi-exception-status)) … … 850 878 (declare (single-float n result)) 851 879 (target::with-stack-short-floats ((temp)) 880 #+arm-target (%set-fpscr-status 0) 852 881 (%setf-short-float TEMP (#_asinhf n)) 853 882 (%sf-check-exception-1 'asinh n (%ffi-exception-status)) … … 875 904 (declare (single-float n result)) 876 905 (target::with-stack-short-floats ((temp)) 906 #+arm-target (%set-fpscr-status 0) 877 907 (%setf-short-float TEMP (external-call "acoshf" :float n :float)) 878 908 (%sf-check-exception-1 'acosh n (%ffi-exception-status)) … … 893 923 (declare (double-float n result)) 894 924 (with-stack-double-floats ((temp)) 925 #+arm-target (%set-fpscr-status 0) 895 926 (%setf-double-float TEMP (#_acosh n)) 896 927 (%df-check-exception-1 'acosh n (%ffi-exception-status)) … … 901 932 (declare (single-float n result)) 902 933 (target::with-stack-short-floats ((temp)) 934 #+arm-target (%set-fpscr-status 0) 903 935 (%setf-short-float TEMP (#_acoshf n)) 904 936 (%sf-check-exception-1 'acosh n (%ffi-exception-status)) … … 926 958 (declare (single-float n result)) 927 959 (target::with-stack-short-floats ((temp)) 960 #+arm-target (%set-fpscr-status 0) 928 961 (%setf-short-float TEMP (external-call "atanhf" :float n :float)) 929 962 (%sf-check-exception-1 'atanh n (%ffi-exception-status)) … … 944 977 (declare (double-float n result)) 945 978 (with-stack-double-floats ((temp)) 979 #+arm-target (%set-fpscr-status 0) 946 980 (%setf-double-float TEMP (#_atanh n)) 947 981 (%df-check-exception-1 'atanh n (%ffi-exception-status)) … … 952 986 (declare (single-float n result)) 953 987 (target::with-stack-short-floats ((temp)) 988 #+arm-target (%set-fpscr-status 0) 954 989 (%setf-short-float TEMP (#_atanhf n)) 955 990 (%sf-check-exception-1 'atanh n (%ffi-exception-status))
Note: See TracChangeset
for help on using the changeset viewer.