Changeset 15126


Ignore:
Timestamp:
Dec 9, 2011, 7:35:32 AM (8 years ago)
Author:
gb
Message:

WITH-IMM-TARGET, WITH-NODE-TARGET: allow elements of reserve set
to be NIL.

File:
1 edited

Legend:

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

    r15022 r15126  
    463463                      (lognot (logior ,@(mapcar
    464464                                         #'(lambda (r)
    465                                              `(ash 1 (hard-regspec-value ,r)))
     465                                             `(if ,r
     466                                               (ash 1 (hard-regspec-value ,r))
     467                                               0))
    466468                                         reserved))))
    467469                     ',mode-name))))
     
    475477                    (lognot (logior ,@(mapcar
    476478                                       #'(lambda (r)
    477                                            `(ash 1 (hard-regspec-value ,r)))
     479                                           `(if ,r
     480                                             (ash 1 (hard-regspec-value ,r))
     481                                             0))
    478482                                       reserved))))))))
    479483    ,@body))
Note: See TracChangeset for help on using the changeset viewer.