Changeset 7915 for branches/ia32/level-0


Ignore:
Timestamp:
Dec 15, 2007, 9:07:13 AM (12 years ago)
Author:
rme
Message:

Typo; wrong index register name.

File:
1 edited

Legend:

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

    r7914 r7915  
    158158
    159159;;; To normalize a bignum is to drop "trailing" digits which are
    160 ;;; redundant sign information.  When return-fixum-p is t, make
     160;;; redundant sign information.  When return-fixnum-p is t, make
    161161;;; the resultant bignum into a fixnum if it fits.
    162162(defx8632lapfunction %normalize-bignum-2 ((return-fixnum-p arg_y) (bignum arg_z))
     
    183183    (movl (% next) (% sign))
    184184    ;; (bignum-ref bignum (- len 2)), i.e., next-to-last digit
    185     (movl (@ (- x8632::misc-data-offset 8) (% bignum) (% imm0)) (% next))
     185    (movl (@ (- x8632::misc-data-offset 8) (% bignum) (% len)) (% next))
    186186    @test
    187187    (movl (% next) (% imm0))
Note: See TracChangeset for help on using the changeset viewer.