[Openmcl-cvs-notifications] r15231 - /trunk/source/lisp-kernel/ppc-asmutils.s

[gb at clozure.com]

Author: gb
Date: Sun Mar  4 16:14:41 2012
New Revision: 15231

Log:
Strangely enough, the PPC doesn't have a "subi." instruction.
Who knew ?

Modified:
    trunk/source/lisp-kernel/ppc-asmutils.s

Modified: trunk/source/lisp-kernel/ppc-asmutils.s
=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/lisp-kernel/ppc-asmutils.s (original)
+++ trunk/source/lisp-kernel/ppc-asmutils.s Sun Mar  4 16:14:41 2012
@@ -433,8 +433,9 @@
         __(li r5,0)
         __(li r6,0)
         __(b 1f)
-0:      __(subi. r4,r4,1)
+0:      __(subi r4,r4,1)
         __(str(r5,0(r3)))
+        __(cmpri(r4,0))
         __(str(r6,node_size(r3)))
         __(la r3,dnode_size(r3))
 1:      __(bne 0b)