Changeset 16619


Ignore:
Timestamp:
Oct 10, 2015, 3:02:02 AM (6 years ago)
Author:
gb
Message:

MAKE-UNWIRED-LREG-LIKE always returns an unwired lreg.

File:
1 edited

Legend:

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

    r16583 r16619  
    364364
    365365(defun make-unwired-lreg-like (proto)
    366   (if (typep proto 'fixnum)
     366  (if (or (typep proto 'fixnum)
     367          (and (typep proto 'lreg)
     368               (lreg-wired proto)))
    367369    (make-unwired-lreg nil
    368370                       :class (hard-regspec-class proto)
Note: See TracChangeset for help on using the changeset viewer.