Changeset 15078


Ignore:
Timestamp:
Nov 19, 2011, 10:14:07 PM (8 years ago)
Author:
gb
Message:

NX2-SELECT-FPR-CANDIDATES: don't use FPR if var isn't SETQed.

File:
1 edited

Legend:

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

    r15051 r15078  
    159159                        (setf (var-declared-unboxed-type v) 'single-float)))))))
    160160            (let* ((type (var-declared-unboxed-type v)))
    161               (when (or (eq type 'single-float)
    162                         (eq type 'double-float))
     161              (when (and (or (eq type 'single-float)
     162                             (eq type 'double-float))
     163                         (logbitp $vbitsetq bits))
    163164                (push v fvars)))))))))
    164165         
Note: See TracChangeset for help on using the changeset viewer.