Changeset 5858

Timestamp:

Jan 31, 2007, 10:26:28 PM (18 years ago)

Author:

Gary Byers

Message:

Don't treat :registers arg as a real argument in ppc2-poweropen-foreign-args.

File:

• trunk/ccl/compiler/PPC/ppc2.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/ppc2.lisp

@@ -8284 +8284 @@
                      (setq reg (ppc2-unboxed-integer-arg-to-reg seg valform valreg spec)))
                    (! set-c-arg reg nextarg))))))
-          (incf nextarg)))
+          (unless (eq spec :registers)(incf nextarg))))
       (do* ((fpreg ppc::fp1 (1+ fpreg))
             (reloads (nreverse fp-loads) (cdr reloads)))