Changeset 11118


Ignore:
Timestamp:
Oct 17, 2008, 11:01:41 AM (11 years ago)
Author:
gb
Message:

Move multiple definitions of MAKE-MASK to nxenv.lisp.

Location:
trunk/source
Files:
4 edited

Legend:

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

    r11038 r11118  
    582582)
    583583
     584(defmacro make-mask (&rest weights)
     585  `(logior ,@(mapcar #'(lambda (w) `(ash 1 ,w)) weights)))
     586
    584587(provide "NXENV")
    585588
  • trunk/source/lib/ppcenv.lisp

    r2368 r11118  
    4848          ppc-nonvolatile-registers-mask))
    4949
    50 (defmacro make-mask (&rest weights)
    51   `(logior ,@(mapcar #'(lambda (w) `(ash 1 ,w)) weights)))
     50
    5251
    5352(defconstant ppc-temp-node-regs
  • trunk/source/lib/x8632env.lisp

    r10125 r11118  
    3636          x8632-nonvolatile-registers-mask))
    3737
    38 ;;; Defined in x8664env.lisp, too
    39 #+x8632-target
    40 (defmacro make-mask (&rest weights)
    41   `(logior ,@(mapcar #'(lambda (w) `(ash 1 ,w)) weights)))
     38
    4239
    4340(defconstant x8632-temp-node-regs
  • trunk/source/lib/x8664env.lisp

    r6506 r11118  
    4343          x8664-nonvolatile-registers-mask))
    4444
    45 (defmacro make-mask (&rest weights)
    46   `(logior ,@(mapcar #'(lambda (w) `(ash 1 ,w)) weights)))
    4745
    4846(defconstant x8664-temp-node-regs
Note: See TracChangeset for help on using the changeset viewer.