[Openmcl-cvs-notifications] r12296 - /trunk/source/level-0/PPC/ppc-clos.lisp

[gb at clozure.com]

Author: gb
Date: Thu Jun 25 06:52:40 2009
New Revision: 12296

Log:
%LARGE-SET-SLOT-ID-VALUE (ticket:305) was broken on PPC/PPC64, too.





Modified:
    trunk/source/level-0/PPC/ppc-clos.lisp

Modified: trunk/source/level-0/PPC/ppc-clos.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/level-0/PPC/ppc-clos.lisp (original)
+++ trunk/source/level-0/PPC/ppc-clos.lisp Thu Jun 25 06:52:40 2009
@@ -175,6 +175,7 @@
   (bge @missing)
   (lwzx imm1 temp1 imm0)
   (cmpwi imm1 0)
+  (slri imm1 imm1 target::word-shift)
   (la imm1 target::misc-data-offset imm1)
   (beq @missing)
   @have-scaled-table-index