Changeset 12579


Ignore:
Timestamp:
Aug 15, 2009, 7:25:29 AM (10 years ago)
Author:
rme
Message:

New function SINGLE-FLOAT-REG-P

File:
1 edited

Legend:

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

    r12219 r12579  
    222222      (return (make-hard-crf-reg (the fixnum (ash bit 2)))))))
    223223
     224(defun single-float-reg-p (reg)
     225  (and (= (hard-regspec-class reg) hard-reg-class-fpr)
     226       (= (get-regspec-mode reg) hard-reg-class-fpr-mode-single)))
     227
    224228(defun use-fp-temp (n)
    225229    (setq *available-backend-fp-temps* (logand *available-backend-fp-temps* (lognot (ash 1 n))))
Note: See TracChangeset for help on using the changeset viewer.