Changeset 7985
- Timestamp:
- Jan 2, 2008, 3:06:55 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ia32/level-0/X86/X8632/x8632-float.lisp
r7984 r7985 22 22 (shl ($ (- 20 x8632::fixnumshift)) (% exp)) 23 23 (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))) 25 25 (movl (@ hi (% esp)) (% arg_y)) 26 26 (andl ($ (ash (1- (ash 1 24)) x8632::fixnumshift)) (% arg_y)) … … 73 73 (movl (@ x8632::single-float.value (% src)) (% imm0)) 74 74 (btcl ($ 31) (% imm0)) 75 (movl (% imm0) (@ x8632::single-float.value (% res)) 75 (movl (% imm0) (@ x8632::single-float.value (% res))) 76 76 (single-value-return)) 77 77 … … 129 129 (unbox-fixnum lo imm1) 130 130 (orl (% imm0) (% imm1)) 131 (movl (% imm1) (@ misc-data-offset (% big))) ;low 32 bits131 (movl (% imm1) (@ x8632::misc-data-offset (% big))) ;low 32 bits 132 132 (movl (% temp1) (% imm0)) 133 133 (sarl ($ (+ 4 x8632::fixnumshift)) (% imm0)) 134 (movl (% imm0) (@ (+ 4 misc-data-offset) (% big)))) ;high 21 bits134 (movl (% imm0) (@ (+ 4 x8632::misc-data-offset) (% big)))) ;high 21 bits 135 135 (mark-as-node temp0) 136 136 (single-value-return 3)) … … 205 205 (shll ($ 1) (% imm0)) 206 206 (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)) 208 209 209 210 (defx8632lapfunction set-%double-float-exp ((dfloat arg_y) (exp arg_z)) … … 221 222 (shll ($ 1) (% imm0)) 222 223 (shrl ($ (1+ ieee-single-float-exponent-offset)) (% imm0)) 223 (box-fixnum imm0 arg_z)) 224 (box-fixnum imm0 arg_z) 225 (single-value-return)) 224 226 225 227 (defx8632lapfunction set-%short-float-exp ((sfloat arg_y) (exp arg_z)) … … 230 232 (andl ($ #x807fffff) (% imm0)) 231 233 (orl (% temp0) (% imm0)) 232 (movl (% imm0) (@ x8632::single-float.value (% sfloat)))) 234 (movl (% imm0) (@ x8632::single-float.value (% sfloat))) 235 (single-value-return)) 233 236 234 237 (defx8632lapfunction %short-float->double-float ((src arg_y) (result arg_z)) … … 273 276 (defx86lapfunction %set-mxcsr ((val arg_z)) 274 277 (unbox-fixnum arg_z imm0) 275 (andl ($ #.x86::mxcsr-write-mask) (% imm0))278 (andl ($ x86::mxcsr-write-mask) (% imm0)) 276 279 (movl (% imm0) (@ (% :rcontext) x8632::tcr.scratch-mxcsr)) 277 280 (ldmxcsr (@ (% :rcontext) x8632::tcr.scratch-mxcsr))
Note: See TracChangeset
for help on using the changeset viewer.