Ignore:
Timestamp:
May 13, 2009, 5:56:22 AM (11 years ago)
Author:
gb
Message:

Add NX2-NODE-REG-P, which returns true iff its argument is a register
specifier that denotes a GPR with mode "node".

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx2.lisp

    r11386 r12039  
    174174                        (not-set-in-formlist (car subforms))
    175175                        (not-set-in-formlist (cadr subforms))))))))))
     176
     177(defun nx2-node-gpr-p (reg)
     178  (and reg
     179       (eql (hard-regspec-class reg) hard-reg-class-gpr)
     180       (eql (get-regspec-mode reg) hard-reg-class-gpr-mode-node)))
Note: See TracChangeset for help on using the changeset viewer.