Changeset 14357


Ignore:
Timestamp:
Oct 12, 2010, 3:46:54 PM (9 years ago)
Author:
gb
Message:

Acode optimization for logior/logxor/logand in PPC backend, too.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r14339 r14357  
    65556555
    65566556(defppc2 ppc2-logior2 logior2 (seg vreg xfer form1 form2)
    6557   (if (or (ppc2-explicit-non-fixnum-type-p form1)
    6558           (ppc2-explicit-non-fixnum-type-p form2))
    6559     (ppc2-binary-builtin seg vreg xfer 'logior-2 form1 form2)
    6560     (ppc2-inline-logior2 seg vreg xfer form1 form2)))
     6557  (or (acode-optimize-logior2 seg vreg xfer form1 form2 *ppc2-trust-declarations*)
     6558      (if (or (ppc2-explicit-non-fixnum-type-p form1)
     6559              (ppc2-explicit-non-fixnum-type-p form2))
     6560        (ppc2-binary-builtin seg vreg xfer 'logior-2 form1 form2)
     6561        (ppc2-inline-logior2 seg vreg xfer form1 form2))))
    65616562
    65626563(defppc2 ppc2-logxor2 logxor2 (seg vreg xfer form1 form2)
    6563   (ppc2-binary-builtin seg vreg xfer 'logxor-2 form1 form2))
     6564  (or (acode-optimize-logxor2 seg vreg xfer form1 form2 *ppc2-trust-declarations*)
     6565      (ppc2-binary-builtin seg vreg xfer 'logxor-2 form1 form2)))
    65646566
    65656567(defun ppc2-inline-logand2 (seg vreg xfer form1 form2)
     
    66126614
    66136615(defppc2 ppc2-logand2 logand2 (seg vreg xfer form1 form2)
    6614   (if (or (ppc2-explicit-non-fixnum-type-p form1)
    6615           (ppc2-explicit-non-fixnum-type-p form2))
    6616     (ppc2-binary-builtin seg vreg xfer 'logand-2 form1 form2)
    6617     (ppc2-inline-logand2 seg vreg xfer form1 form2)))
     6616  (or (acode-optimize-logand2 seg vreg xfer form1 form2 *ppc2-trust-declarations*)
     6617      (if (or (ppc2-explicit-non-fixnum-type-p form1)
     6618              (ppc2-explicit-non-fixnum-type-p form2))
     6619        (ppc2-binary-builtin seg vreg xfer 'logand-2 form1 form2)
     6620        (ppc2-inline-logand2 seg vreg xfer form1 form2))))
    66186621
    66196622
Note: See TracChangeset for help on using the changeset viewer.