Changeset 10157


Ignore:
Timestamp:
Jul 19, 2008, 10:38:07 PM (11 years ago)
Author:
rme
Message:

On x8632, don't use fancy bignum multiplication algorithm. (The LAP
functions needed to use it aren't yet implemented.)

File:
1 edited

Legend:

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

    r9882 r10157  
    683683               (declare (bignum-index len-a len-b len-res))
    684684               (if (and (>= len-a 16)
    685                         (>= len-b 16))
     685                        (>= len-b 16)
     686                        #+x8632-target
     687                        nil)
    686688                 (let* ((ubytes (* len-a 4))
    687689                        (vbytes (* len-b 4))
     
    20052007                                 (declare (fixnum hi-u))
    20062008                                 (= hi-u (the fixnum
    2007                                            (logand hi-u (ash most-positive-fixnum -16)))))
     2009                                           (logand hi-u (ash target::target-most-positive-fixnum -16)))))
    20082010                               (uvref u 0)))
    20092011                   (fix-v (and (= v-len 1)
     
    20112013                                 (declare (fixnum hi-v))
    20122014                                 (= hi-v (the fixnum
    2013                                            (logand hi-v (ash most-positive-fixnum -16)))))
     2015                                           (logand hi-v (ash target::target-most-positive-fixnum -16)))))
    20142016                               (uvref v 0))))
    20152017              (if fix-v
Note: See TracChangeset for help on using the changeset viewer.