Changeset 8254


Ignore:
Timestamp:
Jan 24, 2008, 7:52:17 AM (12 years ago)
Author:
rme
Message:

Don't bother trying to use byte registers in extract-lisptag
and extract-fulltag.

File:
1 edited

Legend:

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

    r8076 r8254  
    7070  (target-arch-case
    7171   (:x8632
    72     (if (x86-byte-reg-p dest)
    73       `(progn
    74          (movb ($ x8632::tagmask) (%b ,dest))
    75          (andl (%l ,node) (%l ,dest)))
    76       `(progn
    77          (movl ($ x8632::tagmask) (% ,dest))
    78          (andl (%l ,node) (%l ,dest)))))
     72    `(progn
     73       (movl ($ x8632::tagmask) (% ,dest))
     74       (andl (%l ,node) (%l ,dest))))
    7975   (:x8664
    8076    `(progn
     
    8581  (target-arch-case
    8682   (:x8632
    87     (if (and (x86-byte-reg-p node) (x86-byte-reg-p dest))
    88       `(progn (movb ($ x8632::fulltagmask) (%b ,dest))
    89               (andb (%b ,node) (%b ,dest)))
    90       `(progn (movl ($ x8632::fulltagmask) (%l ,dest))
    91               (andl (%l ,node) (%l ,dest)))))
     83    `(progn
     84       (movl ($ x8632::fulltagmask) (%l ,dest))
     85       (andl (%l ,node) (%l ,dest))))
    9286   (:x8664
    9387    `(progn
Note: See TracChangeset for help on using the changeset viewer.