Changeset 6482


Ignore:
Timestamp:
May 9, 2007, 7:44:04 AM (15 years ago)
Author:
gb
Message:

New calling sequence. Use a CMOV in EQL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/X86/x86-pred.lisp

    r4421 r6482  
    6060  @test
    6161  (cmpq (% imm0) (% imm1))
    62   (jne @lose)
     62  (movl ($ x8664::t-value) (%l imm0))
     63  (lea (@ (- x8664::t-offset) (% imm0)) (% arg_z))
     64  (cmovel (%l imm0) (%l arg_z))
     65  (single-value-return)
    6366  @win
    6467  (movq ($ t) (% arg_z))
     
    7174  (movq (@ x8664::ratio.numer (% x)) (% x))       ; aka complex.realpart
    7275  (movq (@ x8664::ratio.numer (% y)) (% y))       ; aka complex.realpart
    73   (lea (@ (:^ @back) (% fn)) (% ra0))
    74   (jmp @top)
    75   (:tra @back)
    76   (recover-fn-from-ra0 @back)
     76  (:talign 3)
     77  (call @top)
     78  (recover-fn-from-rip)
    7779  (cmp-reg-to-nil arg_z)
    7880  (pop (% y))
     
    142144  (movq (% temp0) (% x))
    143145  (movq (% temp1) (% y))
    144   (lea (@ (:^ @back) (% fn)) (% ra0))
    145   (jmp @top)
    146   (:tra @back)
    147   (recover-fn-from-ra0 @back)
     146  (:talign 4)
     147  (call @top)
     148  (recover-fn-from-rip)
    148149  (cmp-reg-to-nil arg_z)
    149150  (pop (% y))
Note: See TracChangeset for help on using the changeset viewer.