Changeset 5150

Timestamp:

Sep 6, 2006, 5:35:00 PM (18 years ago)

Author:

Gary Byers

Message:

zero-extend early when extracting typecodes.

File:

• trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp (modified) (5 diffs)

trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp

@@ -683 +683 @@
 (define-x8664-vinsn extract-tag (((tag :u8))
                                  ((object :lisp)))
-  (movb (:%b object) (:%b tag))
+  (movzbl (:%b object) (:%l tag))
   (andb (:$b x8664::tagmask) (:%b tag)))
 
@@ -693 +693 @@
 (define-x8664-vinsn extract-fulltag (((tag :u8))
                                  ((object :lisp)))
-  (movb (:%b object) (:%b tag))
+  (movzbl (:%b object) (:%l tag))
   (andb (:$b x8664::fulltagmask) (:%b tag)))
 
@@ -701 +701 @@
   (andl (:$b (ash x8664::fulltagmask x8664::fixnumshift)) (:%l tag)))
 
-(define-x8664-vinsn extract-typecode (((tag :u8))
+(define-x8664-vinsn extract-typecode (((tag :u32))
                                       ((object :lisp)))
-  (movb (:%b object) (:%b tag))
+  (movzbl (:%b object) (:%l tag))
   (andb (:$b x8664::tagmask) (:%b tag))
   (cmpb (:$b x8664::tag-misc) (:%b tag))
@@ -712 +712 @@
 (define-x8664-vinsn extract-typecode-fixnum (((tag :imm))
                                              ((object :lisp))
-                                             ((temp :u8)))
-  (movb (:%b object) (:%b temp))
+                                             ((temp :u32)))
+  (movzbl (:%b object) (:%l temp))
   (andb (:$b x8664::tagmask) (:%b temp))
   (cmpb (:$b x8664::tag-misc) (:%b temp))
@@ -719 +719 @@
   (movb (:@ x8664::misc-subtag-offset (:%q object)) (:%b temp))
   :have-tag
-  (movzbl (:%b temp) (:%l temp))
   (leal (:@ (:%q temp) 8) (:%l tag)))