Changeset 8254

Timestamp:

Jan 23, 2008, 11:52:17 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• branches/ia32/compiler/X86/x86-lapmacros.lisp (modified) (2 diffs)

branches/ia32/compiler/X86/x86-lapmacros.lisp

@@ -70 +70 @@
   (target-arch-case
    (:x8632
-    (if (x86-byte-reg-p dest)
-      `(progn
-         (movb ($ x8632::tagmask) (%b ,dest))
-         (andl (%l ,node) (%l ,dest)))
-      `(progn
-         (movl ($ x8632::tagmask) (% ,dest))
-         (andl (%l ,node) (%l ,dest)))))
+    `(progn
+       (movl ($ x8632::tagmask) (% ,dest))
+       (andl (%l ,node) (%l ,dest))))
    (:x8664
     `(progn
@@ -85 +81 @@
   (target-arch-case
    (:x8632
-    (if (and (x86-byte-reg-p node) (x86-byte-reg-p dest))
-      `(progn (movb ($ x8632::fulltagmask) (%b ,dest))
-              (andb (%b ,node) (%b ,dest)))
-      `(progn (movl ($ x8632::fulltagmask) (%l ,dest))
-              (andl (%l ,node) (%l ,dest)))))
+    `(progn
+       (movl ($ x8632::fulltagmask) (%l ,dest))
+       (andl (%l ,node) (%l ,dest))))
    (:x8664
     `(progn