Changeset 9709


Ignore:
Timestamp:
Jun 9, 2008, 1:21:25 AM (11 years ago)
Author:
gb
Message:

Do 32-bit operations on nargs.

File:
1 edited

Legend:

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

    r9494 r9709  
    4343        ,anchor
    4444        ,(if (eql min 0)
    45              `(testw (%w nargs) (%w nargs))
    46              `(rcmp (%w nargs) ($ ',min)))
     45             `(testl (% nargs) (% nargs))
     46             `(rcmp (% nargs) ($ ',min)))
    4747        (jne ,bad)
    4848        (:anchored-uuo-section ,anchor)
     
    5454          `(progn
    5555            ,anchor
    56             (rcmp (%w nargs) ($ ',min))
     56            (rcmp (% nargs) ($ ',min))
    5757            (jb ,bad)
    5858            (:anchored-uuo-section ,anchor)
     
    6363          `(progn
    6464            ,anchor
    65             (rcmp (%w nargs) ($ ',max))
     65            (rcmp (% nargs) ($ ',max))
    6666            (ja ,bad)
    6767            (:anchored-uuo-section ,anchor)
     
    7373            `(progn
    7474              ,anchor
    75               (rcmp (%w nargs) ($ ',min))
     75              (rcmp (% nargs) ($ ',min))
    7676              (jb ,toofew)
    77               (rcmp (%w nargs) ($ ',max))
     77              (rcmp (% nargs) ($ ',max))
    7878              (ja ,toomany)
    7979              (:anchored-uuo-section ,anchor)
     
    368368         (z (gensym)))
    369369  `(progn
    370     (testw (%w nargs) (%w nargs))
     370    (testl (% nargs) (% nargs))
    371371    (je ,done)
    372     (cmpw ($ '2) (%w nargs))
     372    (cmpl ($ '2) (% nargs))
    373373    (je ,yz)
    374374    (jb ,z)
Note: See TracChangeset for help on using the changeset viewer.