Changeset 5153

Timestamp:

Sep 6, 2006, 5:36:55 PM (18 years ago)

Author:

Gary Byers

Message:

Zero-extend early when extracting typecodes.

File:

• trunk/ccl/lisp-kernel/x86-macros.s (modified) (3 diffs)

trunk/ccl/lisp-kernel/x86-macros.s

@@ -368 +368 @@
         
 define([extract_lisptag],[
-        movb $1_b,$2_b
+        movzbl $1_b,$2_l
         andb [$]tagmask,$2_b
 ])
@@ -374 +374 @@
                                                                 
 define([extract_fulltag],[
-        movb $1_b,$2_b
+        movzbl $1_b,$2_l
         andb [$]fulltagmask,$2_b
 ])
@@ -384 +384 @@
 define([extract_typecode],[
         new_macro_labels()
-        movb $1_b,$2_b
+        movzbl $1_b,$2_l
         andb $tagmask,$2_b
         cmpb $tag_misc,$2_b