[Openmcl-cvs-notifications] r11145 - /trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp

[gb at clozure.com]

Author: gb
Date: Fri Oct 17 22:11:25 2008
New Revision: 11145

Log:
Need an %unbox-u32.

Modified:
    trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp

Modified: trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp (original)
+++ trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp Fri Oct 17 22:11:25 2=
008
@@ -1292,6 +1292,10 @@
   :bad
   (uuo_interr arch::error-object-not-unsigned-byte-32 src)
   :got-it)
+
+(define-ppc64-vinsn %unbox-u32 (((dest :u32))
+				((src :lisp)))
+  (rldicl dest src (- 64 ppc64::fixnumshift) 32))
 =

 ;;; an object is of type (SIGNED-BYTE 32) iff
 ;;; a) it's of type (SIGNED-BYTE 32)