Changeset 12042
 Timestamp:
 May 13, 2009, 6:27:09 AM (10 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/PPC/ppc2.lisp
r11711 r12042 2796 2796 ;;; would vpop the first argument out of line.) 2797 2797 (defun ppc2twotargetedregforms (seg aform areg bform breg) 2798 (unless (typep areg 'lreg)2799 (warn "~s is not an lreg (1/2)" areg))2800 (unless (typep breg 'lreg)2801 (warn "~s is not an lreg (2/2)" breg))2802 2798 (let* ((avar (ppc2lexicalreferencep aform)) 2803 (atriv ( ppc2trivialp bform))2799 (atriv (and (ppc2trivialp bform) (nx2nodegprp breg))) 2804 2800 (aconst (and (not atriv) (or (ppcsideeffectfreeformp aform) 2805 2801 (if avar (ppc2varnotsetbyformp avar bform))))) … … 2823 2819 (adest areg) 2824 2820 (bdest breg) 2825 (atriv ( ppc2trivialp bform))2821 (atriv (and (ppc2trivialp bform) (nx2nodegprp breg))) 2826 2822 (aconst (and (not atriv) (or (ppcsideeffectfreeformp aform) 2827 2823 (if avar (ppc2varnotsetbyformp avar bform))))) … … 2841 2837 2842 2838 (defun ppc2fourtargetedregforms (seg aform areg bform breg cform creg dform dreg) 2843 (unless (typep areg 'lreg) 2844 (warn "~s is not an lreg (1/4)" areg)) 2845 (unless (typep breg 'lreg) 2846 (warn "~s is not an lreg (2/4)" breg)) 2847 (unless (typep creg 'lreg) 2848 (warn "~s is not an lreg (3/4)" creg)) 2849 (unless (typep dreg 'lreg) 2850 (warn "~s is not an lreg (4/4)" dreg)) 2851 (let* ((atriv (or (null aform) 2839 (let* ((bnode (nx2nodegprp breg)) 2840 (cnode (nx2nodegprp creg)) 2841 (dnode (nx2nodegprp dreg)) 2842 (atriv (or (null aform) 2852 2843 (and (ppc2trivialp bform) 2853 2844 (ppc2trivialp cform) 2854 (ppc2trivialp dform)))) 2845 (ppc2trivialp dform) 2846 bnode 2847 cnode 2848 dnode))) 2855 2849 (btriv (or (null bform) 2856 2850 (and (ppc2trivialp cform) 2857 (ppc2trivialp dform)))) 2851 (ppc2trivialp dform) 2852 cnode 2853 dnode))) 2858 2854 (ctriv (or (null cform) 2859 ( ppc2trivialp dform)))2855 (and (ppc2trivialp dform) dnode))) 2860 2856 2861 2857 (aconst (and (not atriv) … … 2908 2904 2909 2905 (defun ppc2threetargetedregforms (seg aform areg bform breg cform creg) 2910 (unless (typep areg 'lreg) 2911 (warn "~s is not an lreg (1/3)" areg)) 2912 (unless (typep breg 'lreg) 2913 (warn "~s is not an lreg (2/3)" breg)) 2914 (unless (typep creg 'lreg) 2915 (warn "~s is not an lreg (3/3)" creg)) 2916 (let* ((atriv (or (null aform) 2906 (let* ((bnode (nx2nodegprp breg)) 2907 (cnode (nx2nodegprp creg)) 2908 (atriv (or (null aform) 2917 2909 (and (ppc2trivialp bform) 2918 (ppc2trivialp cform)))) 2910 (ppc2trivialp cform) 2911 bnode 2912 cnode))) 2919 2913 (btriv (or (null bform) 2920 (ppc2trivialp cform))) 2914 (and (ppc2trivialp cform) 2915 cnode))) 2921 2916 (aconst (and (not atriv) 2922 2917 (or (ppcsideeffectfreeformp aform) … … 2953 2948 (defun ppc2threeuntargetedregforms (seg aform areg bform breg cform creg) 2954 2949 (withppclocalvinsnmacros (seg) 2955 (let* ((atriv (or (null aform) 2950 (let* ((bnode (nx2nodegprp breg)) 2951 (cnode (nx2nodegprp creg)) 2952 (atriv (or (null aform) 2956 2953 (and (ppc2trivialp bform) 2957 (ppc2trivialp cform)))) 2954 (ppc2trivialp cform) 2955 bnode 2956 cnode))) 2958 2957 (btriv (or (null bform) 2959 (ppc2trivialp cform))) 2958 (and (ppc2trivialp cform) 2959 cnode))) 2960 2960 (aconst (and (not atriv) 2961 2961 (or (ppcsideeffectfreeformp aform) … … 2994 2994 2995 2995 (defun ppc2fouruntargetedregforms (seg aform areg bform breg cform creg dform dreg) 2996 (let* ((atriv (or (null aform) 2996 (let* ((bnode (nx2nodegprp breg)) 2997 (cnode (nx2nodegprp creg)) 2998 (dnode (nx2nodegprp dreg)) 2999 (atriv (or (null aform) 2997 3000 (and (ppc2trivialp bform) 2998 3001 (ppc2trivialp cform) 2999 (ppc2trivialp dform)))) 3002 (ppc2trivialp dform) 3003 bnode 3004 cnode 3005 dnode))) 3000 3006 (btriv (or (null bform) 3001 3007 (and (ppc2trivialp cform) 3002 (ppc2trivialp dform)))) 3008 (ppc2trivialp dform) 3009 cnode 3010 dnode))) 3003 3011 (ctriv (or (null cform) 3004 ( ppc2trivialp dform)))3012 (and (ppc2trivialp dform) dnode))) 3005 3013 (aconst (and (not atriv) 3006 3014 (or (ppcsideeffectfreeformp aform)
Note: See TracChangeset
for help on using the changeset viewer.