Changeset 8232

Timestamp:

Jan 21, 2008, 10:59:02 AM (17 years ago)

Author:

R. Matthew Emerson

Message:

Repair brain damage in extract-typecode-fixnum.

File:

• branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp (modified) (1 diff)

branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp

@@ -663 +663 @@
                                              ((temp :u32)))
   (movl (:%l object) (:%l temp))
-  (andw (:$w x8632::tagmask) (:%w temp))
-  (cmpw (:$w x8632::tag-misc) (:%w temp))
+  (andl (:$b x8632::tagmask) (:%l temp))
+  (cmpl (:$b x8632::tag-misc) (:%l temp))
   (jne :have-tag)
-  (movw (:@ x8632::misc-subtag-offset (:%l object)) (:%w temp))
+  (movb (:@ x8632::misc-subtag-offset (:%l object)) (:%b temp))
   :have-tag
   (leal (:@ (:%l temp) 4) (:%l tag)))