Changeset 12850


Ignore:
Timestamp:
Sep 18, 2009, 4:30:29 PM (10 years ago)
Author:
rme
Message:

Have MULTIPLY-BIGNUM-AND-FIXNUM call MULTIPLY-BIGNUMS to do its work.

File:
1 edited

Legend:

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

    r12847 r12850  
    825825        (%normalize-bignum-macro res)))))
    826826
    827 
     827(defun multiply-bignum-and-fixnum (bignum fixnum)
     828  (declare (type bignum-type bignum) (fixnum fixnum))
     829  (if (eql fixnum 1)
     830    bignum
     831    (with-small-bignum-buffers ((big-fix fixnum))
     832      (multiply-bignums bignum big-fix))))
     833
     834#+slower
    828835(defun multiply-bignum-and-fixnum (bignum fixnum)
    829836  (declare (type bignum-type bignum) (fixnum fixnum))
Note: See TracChangeset for help on using the changeset viewer.