Changeset 6479


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

New calling sequence.

File:
1 edited

Legend:

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

    r5627 r6479  
    3434
    3535
    36 (defx86lapfunction %make-float-from-fixnums ((float 8)(hi 0) (lo arg_x) (exp arg_y) (sign arg_z))
     36(defx86lapfunction %make-float-from-fixnums ((float 16 )(hi 8) #|(ra 0)|#(lo arg_x) (exp arg_y) (sign arg_z))
    3737  (mov (% sign) (% imm1))
    3838  (sar ($ 63) (% imm1))
    3939  (shl ($ 63) (% imm1))
    40   (pop (% imm0))                        ;hi
     40  (movq (@ hi (% rsp)) (% imm0))                        ;hi
    4141  (andl ($ (ash (1- (ash 1 24)) x8664::fixnumshift)) (%l imm0))
    4242  (shl ($ (- 28 x8664::fixnumshift)) (% imm0))
     
    4848  (shl ($ (- ieee-double-float-exponent-offset x8664::fixnumshift)) (% imm0))
    4949  (or (% imm0) (% imm1))
    50   (pop (% arg_z))
     50  (movq (@ float (% rsp)) (% arg_z))
    5151  (mov (% imm1) (@ x8664::double-float.value (% arg_z)))
    52   (discard-reserved-frame)                  ; discard empty frame
    53   (single-value-return))
     52  (single-value-return 4))
    5453
    5554
Note: See TracChangeset for help on using the changeset viewer.