Ignore:
Timestamp:
Jun 24, 2010, 11:48:25 PM (9 years ago)
Author:
rme
Message:

purported improvements to logior on natural-sized operands

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/rme-logops/compiler/nx1.lisp

    r13876 r13885  
    450450                (nx1-form newvalue)))
    451451
    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)))
     452(defnx1 nx1-logior-2 ((logior-2)) (&environment env arg-1 arg-2)
     453  (nx-logior-2-op arg-1 arg-2 env))
    460454
    461455(defnx1 nx1-logxor-2 ((logxor-2)) (&whole w &environment env arg-1 arg-2)
     
    470464(defnx1 nx1-logand-2 ((logand-2)) (&environment env arg-1 arg-2)
    471465  (nx-logand-2-op arg-1 arg-2 env))
    472 
    473 #+not-any-more
    474 (defnx1 nx1-logand-2 ((logand-2)) (&whole w &environment env arg-1 arg-2)
    475   (nx-binary-boole-op w
    476                       env
    477                       arg-1
    478                       arg-2
    479                       (%nx1-operator %ilogand2)
    480                       (%nx1-operator logand2)
    481                       (%nx1-operator %natural-logand)))
    482466
    483467(defnx1 nx1-require ((require-simple-vector)
Note: See TracChangeset for help on using the changeset viewer.