Changeset 9494


Ignore:
Timestamp:
May 15, 2008, 11:19:22 PM (11 years ago)
Author:
gb
Message:

Use new movl for set-nargs; change refernces to nargs.l/nargs.w.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/compiler/X86/x86-lapmacros.lisp

    r8018 r9494  
    2828(defx86lapmacro set-nargs (n)
    2929  (if (eql n 0)
    30     `(xorw (% nargs) (% nargs))
    31     `(movw ($ ',n) (% nargs))))
     30    `(xorl (%l nargs) (%l nargs))
     31    `(movl ($ ',n) (%l nargs))))
    3232
    3333(defx86lapmacro anchored-uuo (form)
     
    4343        ,anchor
    4444        ,(if (eql min 0)
    45              `(testw (% nargs) (% nargs))
    46              `(rcmp (% nargs) ($ ',min)))
     45             `(testw (%w nargs) (%w nargs))
     46             `(rcmp (%w nargs) ($ ',min)))
    4747        (jne ,bad)
    4848        (:anchored-uuo-section ,anchor)
     
    5454          `(progn
    5555            ,anchor
    56             (rcmp (% nargs) ($ ',min))
     56            (rcmp (%w nargs) ($ ',min))
    5757            (jb ,bad)
    5858            (:anchored-uuo-section ,anchor)
     
    6363          `(progn
    6464            ,anchor
    65             (rcmp (% nargs) ($ ',max))
     65            (rcmp (%w nargs) ($ ',max))
    6666            (ja ,bad)
    6767            (:anchored-uuo-section ,anchor)
     
    7373            `(progn
    7474              ,anchor
    75               (rcmp (% nargs) ($ ',min))
     75              (rcmp (%w nargs) ($ ',min))
    7676              (jb ,toofew)
    77               (rcmp (% nargs) ($ ',max))
     77              (rcmp (%w nargs) ($ ',max))
    7878              (ja ,toomany)
    7979              (:anchored-uuo-section ,anchor)
     
    271271         (done (gensym)))
    272272  `(progn
    273     (movzwl (% nargs) (%l imm0))
     273    (movzwl (%w nargs) (%l imm0))
    274274    (subq ($ (* $numx8664argregs x8664::node-size)) (% imm0))
    275275    (jle ,push)
     
    368368         (z (gensym)))
    369369  `(progn
    370     (testw (% nargs) (% nargs))
     370    (testw (%w nargs) (%w nargs))
    371371    (je ,done)
    372     (cmpw ($ '2) (% nargs))
     372    (cmpw ($ '2) (%w nargs))
    373373    (je ,yz)
    374374    (jb ,z)
Note: See TracChangeset for help on using the changeset viewer.