Changeset 13353

Timestamp:

Jan 3, 2010, 11:44:59 AM (15 years ago)

Author:

Gary Byers

Message:

No extract-lisptag. lapmacro ...

File:

• trunk/source/level-0/PPC/ppc-misc.lisp (modified) (1 diff)

trunk/source/level-0/PPC/ppc-misc.lisp

@@ -1055 +1055 @@
 (defppclapfunction %static-inverse-cons ((n arg_z))
   (check-nargs 1)
-  (extract-lisptag. imm0 arg_z)
+  (extract-lisptag imm0 arg_z)
+  (cmpri imm0 0)
+  (ref-global temp0 static-cons-area)
   (bne @fail)
-  (ref-global temp0 static-cons-area)
   (la n '-128 n)
   (ldr imm0 target::area.ndwords temp0)