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

[gb at clozure.com]

Author: gb
Date: Wed Jul 30 19:04:57 2008
New Revision: 10257

Log:
In %LARGE-SET-SLOT-ID-VALUE, use cmplr instead of cmplw, in case
things are -really- large on ppc64.

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 Wed Jul 30 19:04:57 2008
@@ -169,7 +169,7 @@
   (getvheader imm0 temp1)
   (ldr temp0 'table nfn)
   (header-length imm5 imm0)
-  (cmplw imm3 imm5)
+  (cmplr imm3 imm5)
   #+ppc64-target (srdi imm3 imm3 1)
   (la imm0 target::misc-data-offset imm3)
   (bge @missing)