Changeset 9489


Ignore:
Timestamp:
May 15, 2008, 7:13:10 PM (11 years ago)
Author:
rme
Message:

Correct error in bignum-shift-left-loop.

File:
1 edited

Legend:

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

    r9488 r9489  
    660660  (sarl ($ x8632::fixnumshift) (% imm0))
    661661  (movd (% imm0) (% mm7))               ;shift count
    662   (subl ($ 32) (% imm0))
     662  (negl (% imm0))
     663  (addl ($ 32) (% imm0))                ;remaining-bits = 32 - shift-count
    663664  (movd (% imm0) (% mm6))               ;remaining bits
    664665  (movl (@ result (% esp)) (% temp0))
Note: See TracChangeset for help on using the changeset viewer.