Changeset 9178


Ignore:
Timestamp:
Apr 18, 2008, 2:14:07 AM (11 years ago)
Author:
rme
Message:

Correct typo in comment; make code actually do what comment says.

File:
1 edited

Legend:

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

    r9174 r9178  
    638638  (movl (@ result (% esp)) (% temp0))
    639639  (movl (@ bignum (% esp)) (% temp1))
     640  (push (% arg_z))
    640641  (push (% arg_y))
    641642  (xorl (% arg_y) (% arg_y))            ;i
     
    653654  (cmpl (@ (% esp)) (% j))              ;pity res-len-1 can't stay in a reg
    654655  (jne @loop)
     656  (add ($ '1) (% esp))                  ;discard pushed res-len-1
    655657  (movd (@ x8632::misc-data-offset (% temp1) (% arg_y)) (% mm0)) ;b[i]
    656658  (psrlq (% mm6) (% mm0))
    657659  (movd (% mm0) (@ x8632::misc-data-offset (% temp0) (% arg_z))) ;r[j]
    658   ;; reconsititute "digits" arg to bignum-ashift-left-unaligned
     660  ;; reconstitute "digits" arg to bignum-ashift-left-unaligned
    659661  (pop (% arg_z))
    660662  (subl ($ '1) (% arg_z))
Note: See TracChangeset for help on using the changeset viewer.