Changeset 11062


Ignore:
Timestamp:
Oct 12, 2008, 9:53:27 AM (11 years ago)
Author:
gb
Message:

IIRC, the shorter encoding of MOVL is about as small/fast as clr/addl,
so use it in SET-NARGS.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x86-lapmacros.lisp

    r11056 r11062  
    3030
    3131(defx86lapmacro set-nargs (n)
    32   (let* ((many (target-arch-case
    33                 (:x8632 32)
    34                 (:x8664 16))))
    35     (cond ((>= n many) `(movl ($ ',n) (% nargs)))
    36           ((= n 0) `(xorl (% nargs) (% nargs)))
    37           (t `(progn
    38                 (xorl (% nargs) (% nargs))
    39                 (addl ($ ',n) (% nargs)))))))
     32  (cond ((= n 0) `(xorl (% nargs) (% nargs)))
     33        (t `(movl ($ ',n) (% nargs)))))
    4034       
    4135
Note: See TracChangeset for help on using the changeset viewer.