Changeset 7985


Ignore:
Timestamp:
Jan 2, 2008, 3:06:55 AM (12 years ago)
Author:
rme
Message:

Forgot (single-value-return) in a couple of places; correct other
minor errors.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-float.lisp

    r7984 r7985  
    2222  (shl ($ (- 20 x8632::fixnumshift)) (% exp))
    2323  (orl (% exp) (% imm0))                ;insert biased exponent
    24   (movl (% imm0) (% x8632::double-float.val-high (% arg_z)))
     24  (movl (% imm0) (@ x8632::double-float.val-high (% arg_z)))
    2525  (movl (@ hi (% esp)) (% arg_y))
    2626  (andl ($ (ash (1- (ash 1 24)) x8632::fixnumshift)) (% arg_y))
     
    7373  (movl (@ x8632::single-float.value (% src)) (% imm0))
    7474  (btcl ($ 31) (% imm0))
    75   (movl (% imm0) (@ x8632::single-float.value (% res))
     75  (movl (% imm0) (@ x8632::single-float.value (% res)))
    7676  (single-value-return))
    7777
     
    129129    (unbox-fixnum lo imm1)
    130130    (orl (% imm0) (% imm1))
    131     (movl (% imm1) (@ misc-data-offset (% big))) ;low 32 bits
     131    (movl (% imm1) (@ x8632::misc-data-offset (% big))) ;low 32 bits
    132132    (movl (% temp1) (% imm0))
    133133    (sarl ($ (+ 4 x8632::fixnumshift)) (% imm0))
    134     (movl (% imm0) (@ (+ 4 misc-data-offset) (% big)))) ;high 21 bits
     134    (movl (% imm0) (@ (+ 4 x8632::misc-data-offset) (% big)))) ;high 21 bits
    135135  (mark-as-node temp0)
    136136  (single-value-return 3))
     
    205205  (shll ($ 1) (% imm0))
    206206  (shrl ($ (1+ (- ieee-double-float-exponent-offset 32))) (% imm0))
    207   (box-fixnum imm0 arg_z))
     207  (box-fixnum imm0 arg_z)
     208  (single-value-return))
    208209
    209210(defx8632lapfunction set-%double-float-exp ((dfloat arg_y) (exp arg_z))
     
    221222  (shll ($ 1) (% imm0))
    222223  (shrl ($ (1+ ieee-single-float-exponent-offset)) (% imm0))
    223   (box-fixnum imm0 arg_z))
     224  (box-fixnum imm0 arg_z)
     225  (single-value-return))
    224226
    225227(defx8632lapfunction set-%short-float-exp ((sfloat arg_y) (exp arg_z))
     
    230232  (andl ($ #x807fffff) (% imm0))
    231233  (orl (% temp0) (% imm0))
    232   (movl (% imm0) (@ x8632::single-float.value (% sfloat))))
     234  (movl (% imm0) (@ x8632::single-float.value (% sfloat)))
     235  (single-value-return))
    233236
    234237(defx8632lapfunction %short-float->double-float ((src arg_y) (result arg_z))
     
    273276(defx86lapfunction %set-mxcsr ((val arg_z))
    274277  (unbox-fixnum arg_z imm0)
    275   (andl ($ #.x86::mxcsr-write-mask) (% imm0))
     278  (andl ($ x86::mxcsr-write-mask) (% imm0))
    276279  (movl (% imm0) (@ (% :rcontext) x8632::tcr.scratch-mxcsr))
    277280  (ldmxcsr (@ (% :rcontext) x8632::tcr.scratch-mxcsr))
Note: See TracChangeset for help on using the changeset viewer.