Changeset 9622 for branches/ia32/level-0


Ignore:
Timestamp:
May 29, 2008, 7:21:19 PM (11 years ago)
Author:
rme
Message:

bignum-shift-left-loop: typo updating loop indicies.
Was incrementing (% i) instead of (% i+1).

File:
1 edited

Legend:

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

    r9606 r9622  
    659659
    660660;;; shift bignum left by nbits bits (1 <= nbits < 32)
    661 ;;; j is one more than the number of digits in bignum
     661;;; start storing into result at digit j
    662662(defx8632lapfunction bignum-shift-left-loop ((nbits 12) (result 8)
    663663                                             (bignum 4) #|(ra 0)|#
     
    695695    (movd (% mm0) (@ x8632::misc-data-offset (% r) (% j)))
    696696    (movl (% i+1) (% i))
    697     (addl ($ '1) (% i))
     697    (addl ($ '1) (% i+1))
    698698    (addl ($ '1) (% j))
    699699    @test
     
    707707    (movd (@ x8632::misc-data-offset (% b) (% i)) (% mm0))
    708708    (psrad (% mm6) (% mm0))
    709     (addl ($ '1) (% imm0))              ;original j again
    710709    (movd (% mm0) (@ x8632::misc-data-offset (% r) (% j))))
    711710  (leave)
Note: See TracChangeset for help on using the changeset viewer.