Changeset 14355


Ignore:
Timestamp:
Oct 12, 2010, 2:07:26 PM (9 years ago)
Author:
gb
Message:

Use new stuff for logior/logxor/logand in ARM backend.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm2.lisp

    r14340 r14355  
    63766376
    63776377(defarm2 arm2-logior2 logior2 (seg vreg xfer form1 form2)
    6378   (if (or (arm2-explicit-non-fixnum-type-p form1)
    6379           (arm2-explicit-non-fixnum-type-p form2))
    6380     (arm2-binary-builtin seg vreg xfer 'logior-2 form1 form2)
    6381     (arm2-inline-logior2 seg vreg xfer form1 form2)))
     6378  (or (acode-optimize-logior2 seg vreg xfer form1 form2 *arm2-trust-declarations*)
     6379      (if (or (arm2-explicit-non-fixnum-type-p form1)
     6380              (arm2-explicit-non-fixnum-type-p form2))
     6381        (arm2-binary-builtin seg vreg xfer 'logior-2 form1 form2)
     6382        (arm2-inline-logior2 seg vreg xfer form1 form2))))
    63826383
    63836384(defarm2 arm2-logxor2 logxor2 (seg vreg xfer form1 form2)
    6384   (arm2-binary-builtin seg vreg xfer 'logxor-2 form1 form2))
     6385  (or (acode-optimize-logxor2 seg vreg xfer form1 form2 *arm2-trust-declarations*)
     6386      (arm2-binary-builtin seg vreg xfer 'logxor-2 form1 form2)))
    63856387
    63866388(defun arm2-inline-logand2 (seg vreg xfer form1 form2)
     
    64236425
    64246426(defarm2 arm2-logand2 logand2 (seg vreg xfer form1 form2)
    6425   (if (or (arm2-explicit-non-fixnum-type-p form1)
    6426           (arm2-explicit-non-fixnum-type-p form2))
    6427     (arm2-binary-builtin seg vreg xfer 'logand-2 form1 form2)
    6428     (arm2-inline-logand2 seg vreg xfer form1 form2)))
     6427  (or (acode-optimize-logand2 seg vreg xfer form1 form2 *arm2-trust-declarations*)
     6428      (if (or (arm2-explicit-non-fixnum-type-p form1)
     6429              (arm2-explicit-non-fixnum-type-p form2))
     6430        (arm2-binary-builtin seg vreg xfer 'logand-2 form1 form2)
     6431        (arm2-inline-logand2 seg vreg xfer form1 form2))))
    64296432
    64306433
Note: See TracChangeset for help on using the changeset viewer.