Changeset 7904
 Timestamp:
 Dec 13, 2007, 7:07:54 AM (13 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/ia32/level0/X86/X8632/x8632bignum.lisp
r7903 r7904 34 34 (defx8632lapfunction %digitzerop ((x arg_z)) 35 35 (svref x 0 imm0) 36 ( xorl (% arg_z) (% arg_z))36 (movl ($ x8632::nilvalue) (% arg_z)) 37 37 (testl (% imm0) (% imm0)) 38 (cmov nz ($ x8632::nilvalue) (% arg_z))38 (cmovel (% imm0) (% arg_z)) 39 39 (singlevaluereturn)) 40 40 … … 76 76 77 77 (defx8632lapfunction %digit0orplusp ((bignum arg_y) (idx arg_z)) 78 (xorl (% imm0) (% imm0))79 78 (testl (@ x8632::miscdataoffset (% bignum) (% idx)) (% imm0)) 80 (cmovbl ($ x8632::nilvalue) (% arg_z)) 79 (movl ($ x8632::nilvalue) (% temp0)) 80 (cmovbl (% temp0) (% arg_z)) 81 81 (singlevaluereturn)) 82 82 … … 84 84 (defx8632lapfunction %bignumoddp ((bignum arg_z)) 85 85 (testb ($ 1) (@ x8632::miscdataoffset (% bignum))) 86 (cmovzl ($ x8632::nilvalue) (% arg_z)) 86 (movl ($ x8632::nilvalue) (% temp0)) 87 (cmovel (% temp0) (% arg_z)) 87 88 (singlevaluereturn)) 88 89 … … 91 92 (movl (@ ( 4 x8632::miscdataoffset) (% bignum)) (% imm0)) 92 93 (testl ($ #x8000000) (% imm0)) 93 (cmovnzl ($ x8632::nilvalue) (% arg_z)) 94 (movl ($ x8632::nilvalue) (% temp0)) 95 (cmovnel (% temp0) (% arg_z)) 94 96 (singlevaluereturn)) 95 97 … … 101 103 (defx8632lapfunction bignumminusp ((bignum arg_z)) 102 104 (vectorlength bignum imm0) 103 (movl (@ ( 4 x8632::miscdataoffset) (% bignum) (% imm0)) )105 (movl (@ ( 4 x8632::miscdataoffset) (% bignum) (% imm0)) (% imm0)) 104 106 (testl ($ #x8000000) (% imm0)) 105 (cmovzl ($ x8632::nilvalue) (% arg_z)) 107 (movl ($ x8632::nilvalue) (% temp0)) 108 (cmovel (% temp0) (% arg_z)) 106 109 (singlevaluereturn)) 107 110 … … 132 135 @add 133 136 (adc (% temp0) (% imm0)) 134 (cmovcl ($ fixnumone) (% arg_z))135 137 (movl (@ r (% esp)) (% temp0)) 136 138 (movl (@ k (% esp)) (% temp1)) 137 139 (movl (% imm0) (@ x8632::miscdataoffset (% temp0) (% temp1))) 140 (adc ($ 0) (% imm0)) ;propagate carry flag 141 (boxfixnum imm0 arg_z) 138 142 (markasnode temp0) 139 143 (singlevaluereturn 7)) … … 164 168 @sub 165 169 (sbb (% imm0) (% temp0)) 166 (cmovcl ($ fixnumone) (% arg_z))167 170 (movl (@ r (% esp)) (% temp0)) 168 171 (movl (@ k (% esp)) (% temp1)) 169 172 (movl (% imm0) (@ x8632::miscdataoffset (% temp0) (% temp1))) 173 (adc ($ 0) (% imm0)) ;propagate carry flag 174 (boxfixnum imm0 arg_z) 170 175 (markasnode temp0) 171 176 (singlevaluereturn 7))
Note: See TracChangeset
for help on using the changeset viewer.