Ignore:
Timestamp:
Jul 2, 2008, 6:34:04 AM (12 years ago)
Author:
gb
Message:

Fix bad declarations in PPC-specific code.

File:
1 edited

Legend:

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

    r5591 r9882  
    734734                 (negate-bignum-in-place result))
    735735               (%normalize-bignum-macro result ))))
    736       (declare (dynamic-extent do-it))
     736      (declare (dynamic-extent #'do-it))
    737737      (if bignum-plus-p
    738738        (do-it bignum (if fixnum-plus-p fixnum (- fixnum))  negate-res)
     
    15281528                         (if x-plusp (copy-bignum the-res) (negate-bignum the-res))
    15291529                         (if x-plusp the-res (the fixnum (- (the fixnum the-res)))))))))))))))
    1530       (declare (dynamic-extent do-it))
     1530      (declare (dynamic-extent #'do-it))
    15311531      (with-negated-bignum-buffers x1 y1 do-it))))
    15321532
     
    16111611         (y (if y-minus (- y) y)))
    16121612    (declare (fixnum y))
    1613     (declare (type bignum-index len-x len-q))
     1613    (declare (type bignum-index len-x))
    16141614    (declare (dynamic-extent maybe-q))
    16151615    (let* ((r-h 0)
     
    16331633         (y (if y-minus (- y) y)))
    16341634    (declare (fixnum y))
    1635     (declare (type bignum-index len-x len-q))
     1635    (declare (type bignum-index len-x))
    16361636      (let* (;(LEN-Q (%BIGNUM-LENGTH Q))
    16371637             (r-h 0)
     
    18711871
    18721872(defun %normalize-bignum (res)
    1873   (declare (ignore len))
    18741873  ;(declare (optimize (speed 3)(safety 0)))
    18751874  (%normalize-bignum-2 t res))
Note: See TracChangeset for help on using the changeset viewer.