Changeset 6323


Ignore:
Timestamp:
Apr 22, 2007, 10:39:53 AM (15 years ago)
Author:
gb
Message:

Use xcall-subprim-2 (uses x86 CALL to call subprims) for a few numeric
operations. Much more to be done here.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/compiler/X86/x862.lisp

    r6318 r6323  
    65056505        (x862-check-fixnum-overflow seg ($ x8664::arg_z) done)
    65066506        (@ out-of-line)
    6507         (! call-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPbuiltin-minus) ($ x8664::arg_y) ($ x8664::arg_z))
     6507        (! xcall-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPnbuiltin-minus) ($ x8664::arg_y) ($ x8664::arg_z))
    65086508        (@ done)
    65096509        (x862-copy-register seg target ($ x8664::arg_z)))
     
    65446544          (if otherform
    65456545            (x862-lri seg ($ x8664::arg_y) (ash (or fix1 fix2) *x862-target-fixnum-shift*)))
    6546           (! call-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPbuiltin-plus) ($ x8664::arg_y) ($ x8664::arg_z))
     6546          (! xcall-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPnbuiltin-plus) ($ x8664::arg_y) ($ x8664::arg_z))
    65476547          (@ done)
    65486548          (x862-copy-register seg target ($ x8664::arg_z)))
     
    67086708              (if otherform
    67096709                (x862-lri seg ($ x8664::arg_y) (ash fixval x8664::fixnumshift)))
    6710               (! call-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPbuiltin-logior) ($ x8664::arg_y) ($ x8664::arg_z))
     6710              (! xcall-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPnbuiltin-logior) ($ x8664::arg_y) ($ x8664::arg_z))
    67116711              (@ done)
    67126712              (x862-copy-register seg target ($ x8664::arg_z)))
     
    67536753              (if otherform
    67546754                (x862-lri seg ($ x8664::arg_y) (ash fixval x8664::fixnumshift)))
    6755               (! call-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPbuiltin-logand) ($ x8664::arg_y) ($ x8664::arg_z))
     6755              (! xcall-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPnbuiltin-logand) ($ x8664::arg_y) ($ x8664::arg_z))
    67566756              (@ done)
    67576757              (x862-copy-register seg target ($ x8664::arg_z)))
Note: See TracChangeset for help on using the changeset viewer.