Changeset 9545

Timestamp:

May 16, 2008, 7:55:20 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

add %unbox-u32

File:

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

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

@@ -886 +886 @@
   :done)
 
+(define-x8632-vinsn %unbox-u32 (((dest :u32))
+                                ((src :lisp)))
+  (movl (:%l src) (:%l dest))
+  (shrl (:$ub x8632::fixnumshift) (:%l dest)))
+
 ;;; xxx -- review this again later
 (define-x8632-vinsn unbox-s32 (((dest :s32))