Changeset 9605
 Timestamp:
 May 28, 2008, 2:01:35 AM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/ia32/level0/X86/X8632/x8632bignum.lisp
r9567 r9605 431 431 (vectorlength bignum temp0) 432 432 (xorl (% i) (% i)) 433 ( movl ($ '32) (% zeros))433 (xorl (% zeros) (% zeros)) 434 434 @loop 435 435 (movl (@ x8632::miscdataoffset (% bignum) (% i)) (% imm0)) 436 (testl (% imm0) (% imm0)) 437 (jnz @last) 438 (addl ($ '32) (% zeros)) 436 439 (addl ($ '1) (% i)) 437 ( addl ($ '32) (% zeros))438 ( testl (% imm0) (% imm0))439 (jz @loop)440 (cmpl (% len) (% i)) 441 (jb @loop) 442 @last 440 443 ;; now count zero bits in digit 441 (bs rl (% imm0) (% imm0))442 ( boxfixnum imm0 imm0)444 (bsfl (% imm0) (% imm0)) 445 (shll ($ x8632::fixnumshift) (% imm0)) 443 446 (addl (% imm0) (% zeros)) 444 447 (movl (% zeros) (% arg_z))
Note: See TracChangeset
for help on using the changeset viewer.