Changeset 15042


Ignore:
Timestamp:
Oct 24, 2011, 6:45:13 PM (8 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r15037 r15042  
    52735273              (setq no-regs (%ilogbitp $fbitnoregs fbits)))
    52745274        (multiple-value-setq (pregs reglocatives)
    5275           (nx2-afunc-allocate-global-registers (unless no-regs *ppc2-nvrs*)))
     5275          (nx2-afunc-allocate-global-registers afunc (unless no-regs *ppc2-nvrs*)))
    52765276        (@ (backend-get-next-label)) ; generic self-reference label, should be label #1
    52775277        (when keys ;; Ensure keyvect is the first immediate
Note: See TracChangeset for help on using the changeset viewer.