Changeset 15042

Timestamp:

Oct 24, 2011, 11:45:13 AM (13 years ago)

Author:

Gary Byers

Message:

Actually pass the afunc arg to NX2-AFUNC-ALLOCATE-GLOBAL-REGISTERS.

File:

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

trunk/source/compiler/PPC/ppc2.lisp

@@ -5273 +5273 @@
               (setq no-regs (%ilogbitp $fbitnoregs fbits)))
         (multiple-value-setq (pregs reglocatives) 
-          (nx2-afunc-allocate-global-registers (unless no-regs *ppc2-nvrs*)))
+          (nx2-afunc-allocate-global-registers afunc (unless no-regs *ppc2-nvrs*)))
         (@ (backend-get-next-label)) ; generic self-reference label, should be label #1
         (when keys ;; Ensure keyvect is the first immediate