Ignore:
Timestamp:
Jan 13, 2013, 11:52:02 AM (7 years ago)
Author:
gb
Message:

Faster bignum x fixnum multiplication for 32-bit architectures.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-bignum32.lisp

    r14119 r15578  
    734734               (declare (type bignum-type bignum)
    735735                        (type bignum-index bignum-len))
    736                (with-small-bignum-buffers ((carry-digit)
    737                                            (result-digit))
    738                  (dotimes (i bignum-len (%set-digit result bignum-len carry-digit))
    739                    (%set-digit result i
    740                                (%multiply-and-add result-digit carry-digit bignum i fixnum))))
     736               (%multiply-and-add-fixnum-loop bignum-len bignum fixnum result)
    741737               (when negate-res
    742738                 (negate-bignum-in-place result))
Note: See TracChangeset for help on using the changeset viewer.