Changeset 7242


Ignore:
Timestamp:
Sep 17, 2007, 5:34:05 PM (12 years ago)
Author:
rme
Message:

Use x86-byte-reg-p and x86-acc-reg-p in a couple places.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x86-lapmacros.lisp

    r7037 r7242  
    7070  (target-arch-case
    7171   (:x8632
     72    (assert (x86-acc-reg-p dest) () "dest reg must be accumulator")
    7273    `(progn
    7374       (movb ($ x8632::tagmask) (%b ,dest))
    74        (andb (%b ,node) (%b ,dest))))
     75       (andl (%l ,node) (%l ,dest))))
    7576   (:x8664
    7677    `(progn
     
    8182  (target-arch-case
    8283   (:x8632
    83     `(progn
    84        (movb ($ x8632::fulltagmask) (%b ,dest))
    85        (andb (%b ,node) (%b ,dest))))
     84    (if (and (x86-byte-reg-p node) (x86-byte-reg-p dest))
     85      `(progn (movb ($ x8632::fulltagmask) (%b ,dest))
     86              (andb (%b ,node) (%b ,dest)))
     87      `(progn (movl ($ x8632::fulltagmask) (%l ,dest))
     88              (andl (%l ,node) (%l ,dest)))))
    8689   (:x8664
    8790    `(progn
Note: See TracChangeset for help on using the changeset viewer.