Changeset 9882


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

Fix bad declarations in PPC-specific code.

Location:
trunk/source
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc-backend.lisp

    r5219 r9882  
    6262               (error "Duplicate name ~s in vinsn ~s" vname vinsn-name)
    6363               (push vname name-list))))
    64       (declare (dynamic-extent valid-spec-name add-spec-name))
     64      (declare (dynamic-extent #'valid-spec-name #'add-spec-name))
    6565      (when (consp vinsn-name)
    6666        (setq attrs (encode-vinsn-attributes (cdr vinsn-name))
     
    182182                                              (nmax (opcode-max-vinsn-args opcode))
    183183                                              (nhave (length opvals)))
    184                                          (declare (fixnum nreq nhave))
     184                                         (declare (fixnum nmin nmax nhave))
    185185                                         (if (= nhave nmax)
    186186                                           `(,opnum ,@opvals)
  • trunk/source/compiler/PPC/ppc-lap.lisp

    r5869 r9882  
    317317      (let* ((namelen (length pname))
    318318             (pos (ash (the fixnum (+ start 5)) 2)))
    319         (declare (fixnum namelen nwords pos))
     319        (declare (fixnum namelen pos))
    320320        (out-byte code-vector pos (ldb (byte 8 8) namelen))
    321321        (incf pos)
  • trunk/source/compiler/PPC/ppc2.lisp

    r9261 r9882  
    724724    (with-ppc-local-vinsn-macros (seg)
    725725      (let* ((first (- 32 nregs)))
    726         (declare (fixnum cell first n))
     726        (declare (fixnum first))
    727727        (! restore-nvrs first from-fp (- *ppc2-vstack* ea))))))
    728728
     
    52565256           (reserved-lcells nil)
    52575257           (*ppc2-vstack* 0))
    5258       (declare (type (unsigned-byte 16) num-req num-opt num-inh reqvloc))
     5258      (declare (type (unsigned-byte 16) num-req num-opt num-inh))
    52595259      (with-ppc-p2-declarations p2decls
    52605260        (setq *ppc2-inhibit-register-allocation*
     
    62966296           (*ppc2-top-vstack-lcell* *ppc2-top-vstack-lcell*)
    62976297           (nargs (ppc2-arglist seg arglist)))
    6298       (declare (fixnum args))
     6298      (declare (fixnum nargs))
    62996299      (when (> nargs 1)
    63006300        (ppc2-set-nargs seg (1- nargs))
     
    84578457         (*ppc2-top-vstack-lcell* *ppc2-top-vstack-lcell*)
    84588458         (*ppc2-cstack* *ppc2-cstack*))
    8459     (declare (fixnum nextarg))
    84608459    (! alloc-c-frame (the fixnum
    84618460                       (+ (the fixnum (length argvals))
     
    85158514         (ngpr-args 0)
    85168515         (fp-loads ()))
    8517       (declare (fixnum  nshort-floats ndouble-floats nfpr-args ngpr-args narg-words
     8516      (declare (fixnum  nsingle-floats ndouble-floats nfpr-args ngpr-args nother-words
    85188517                        gpr-offset other-offset single-float-offset double-float-offset))
    85198518      (dolist (argspec argspecs)
     
    86848683         (*ppc2-cstack* *ppc2-cstack*)
    86858684         (return-registers nil))
    8686     (declare (fixnum nextarg))
    86878685    (! alloc-c-frame (the fixnum
    86888686                       (+ (the fixnum (length argvals))
  • trunk/source/compiler/risc-lap.lisp

    r4102 r9882  
    4747
    4848(defmethod print-object ((p opcode) stream)
    49   (declare (ignore depth))
    5049  (print-unreadable-object (p stream :type t)
    5150    (format stream "~a" (string (opcode-name p)))))
  • 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))
  • trunk/source/level-0/l0-numbers.lisp

    r8916 r9882  
    18351835         (16-bit-dividend dividend)
    18361836         (index 1))
    1837     (declare (fixnum long-words words words-2 index bits)
     1837    (declare (fixnum long-words index bits)
    18381838             (dynamic-extent dividend)
    18391839             (type (simple-array (unsigned-byte 16) (*)) 16-bit-dividend)       ; lie
  • trunk/source/level-0/nfasload.lisp

    r9879 r9882  
    567567         (vector (%alloc-misc element-count
    568568                              ppc32::subtag-double-float-vector)))
    569     (declare (fixnum subtag element-count size-in-bytes))
     569    (declare (fixnum element-count size-in-bytes))
    570570    (%epushval s vector)
    571571    (%fasl-read-n-bytes s vector (- ppc32::misc-dfloat-offset
     
    581581         (size-in-bytes (* 4 element-count))
    582582         (vector (allocate-typed-vector :code-vector element-count)))
    583     (declare (fixnum subtag element-count size-in-bytes))
     583    (declare (fixnum element-count size-in-bytes))
    584584    (%epushval s vector)
    585585    (%fasl-read-n-bytes s vector 0 size-in-bytes)
  • trunk/source/lib/ppc-backtrace.lisp

    r8132 r9882  
    534534; Set the nth saved register to value.
    535535(defun set-saved-register (value n lfun pc child last-catch srv)
    536   (declare (ignore lfun pc child) (dynamic-extent saved-register-values))
     536  (declare (ignore lfun pc child) (dynamic-extent))
    537537  (let ((j (- target::node-size n))
    538538        (unresolved (srv.unresolved srv))
Note: See TracChangeset for help on using the changeset viewer.