Changeset 7985 for branches/ia32/level0/X86/X8632/x8632float.lisp
 Timestamp:
 Jan 2, 2008, 3:06:55 AM (13 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/ia32/level0/X86/X8632/x8632float.lisp
r7984 r7985 22 22 (shl ($ ( 20 x8632::fixnumshift)) (% exp)) 23 23 (orl (% exp) (% imm0)) ;insert biased exponent 24 (movl (% imm0) ( %x8632::doublefloat.valhigh (% arg_z)))24 (movl (% imm0) (@ x8632::doublefloat.valhigh (% 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::singlefloat.value (% src)) (% imm0)) 74 74 (btcl ($ 31) (% imm0)) 75 (movl (% imm0) (@ x8632::singlefloat.value (% res)) 75 (movl (% imm0) (@ x8632::singlefloat.value (% res))) 76 76 (singlevaluereturn)) 77 77 … … 129 129 (unboxfixnum lo imm1) 130 130 (orl (% imm0) (% imm1)) 131 (movl (% imm1) (@ miscdataoffset (% big))) ;low 32 bits131 (movl (% imm1) (@ x8632::miscdataoffset (% big))) ;low 32 bits 132 132 (movl (% temp1) (% imm0)) 133 133 (sarl ($ (+ 4 x8632::fixnumshift)) (% imm0)) 134 (movl (% imm0) (@ (+ 4 miscdataoffset) (% big)))) ;high 21 bits134 (movl (% imm0) (@ (+ 4 x8632::miscdataoffset) (% big)))) ;high 21 bits 135 135 (markasnode temp0) 136 136 (singlevaluereturn 3)) … … 205 205 (shll ($ 1) (% imm0)) 206 206 (shrl ($ (1+ ( ieeedoublefloatexponentoffset 32))) (% imm0)) 207 (boxfixnum imm0 arg_z)) 207 (boxfixnum imm0 arg_z) 208 (singlevaluereturn)) 208 209 209 210 (defx8632lapfunction set%doublefloatexp ((dfloat arg_y) (exp arg_z)) … … 221 222 (shll ($ 1) (% imm0)) 222 223 (shrl ($ (1+ ieeesinglefloatexponentoffset)) (% imm0)) 223 (boxfixnum imm0 arg_z)) 224 (boxfixnum imm0 arg_z) 225 (singlevaluereturn)) 224 226 225 227 (defx8632lapfunction set%shortfloatexp ((sfloat arg_y) (exp arg_z)) … … 230 232 (andl ($ #x807fffff) (% imm0)) 231 233 (orl (% temp0) (% imm0)) 232 (movl (% imm0) (@ x8632::singlefloat.value (% sfloat)))) 234 (movl (% imm0) (@ x8632::singlefloat.value (% sfloat))) 235 (singlevaluereturn)) 233 236 234 237 (defx8632lapfunction %shortfloat>doublefloat ((src arg_y) (result arg_z)) … … 273 276 (defx86lapfunction %setmxcsr ((val arg_z)) 274 277 (unboxfixnum arg_z imm0) 275 (andl ($ #.x86::mxcsrwritemask) (% imm0))278 (andl ($ x86::mxcsrwritemask) (% imm0)) 276 279 (movl (% imm0) (@ (% :rcontext) x8632::tcr.scratchmxcsr)) 277 280 (ldmxcsr (@ (% :rcontext) x8632::tcr.scratchmxcsr))
Note: See TracChangeset
for help on using the changeset viewer.