Changeset 14047


Ignore:
Timestamp:
Jul 26, 2010, 8:31:03 PM (9 years ago)
Author:
rme
Message:

Undo, for the time being, the effects of r13887.

Those changes are supposed to exploit more cases where LOGAND and
LOGIOR are applied to natural-sized operands, but the changes
are buggy. See ticket:708.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r13887 r14047  
    450450                (nx1-form newvalue)))
    451451
    452 (defnx1 nx1-logior-2 ((logior-2)) (&environment env arg-1 arg-2)
    453   (nx-logior-2-op arg-1 arg-2 env))
     452(defnx1 nx1-logior-2 ((logior-2)) (&whole w &environment env arg-1 arg-2)
     453  (nx-binary-boole-op w
     454                      env
     455                      arg-1
     456                      arg-2
     457                      (%nx1-operator %ilogior2)
     458                      (%nx1-operator logior2)
     459                      (%nx1-operator %natural-logior)))
    454460
    455461(defnx1 nx1-logxor-2 ((logxor-2)) (&whole w &environment env arg-1 arg-2)
     
    462468                      (%nx1-operator %natural-logxor)))
    463469
    464 (defnx1 nx1-logand-2 ((logand-2)) (&environment env arg-1 arg-2)
    465   (nx-logand-2-op arg-1 arg-2 env))
     470(defnx1 nx1-logand-2 ((logand-2)) (&whole w &environment env arg-1 arg-2)
     471  (nx-binary-boole-op w
     472                      env
     473                      arg-1
     474                      arg-2
     475                      (%nx1-operator %ilogand2)
     476                      (%nx1-operator logand2)
     477                      (%nx1-operator %natural-logand)))
    466478
    467479(defnx1 nx1-require ((require-simple-vector)
Note: See TracChangeset for help on using the changeset viewer.