Skip to content
Snippets Groups Projects
Commit d471e7c1 authored by rtoy's avatar rtoy
Browse files

Clean up some warnings.

compiler/ppc/alloc.lisp:
o Delete extra closing parens.

compiler/ppc/insts.lisp:
o Ignore some unused args.
o Delete unused vars.

compiler/ppc/move.lisp:
o Delete unused vars.
parent 1031c478
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/alloc.lisp,v 1.12 2005/05/14 02:22:30 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/alloc.lisp,v 1.13 2005/06/15 03:13:51 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -192,7 +192,6 @@ ...@@ -192,7 +192,6 @@
(:generator 4 (:generator 4
(with-fixed-allocation (result pa-flag temp type words :lowtag lowtag) (with-fixed-allocation (result pa-flag temp type words :lowtag lowtag)
))) )))
))
(define-vop (var-alloc) (define-vop (var-alloc)
(:args (extra :scs (any-reg))) (:args (extra :scs (any-reg)))
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/insts.lisp,v 1.10 2005/04/10 15:01:45 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/insts.lisp,v 1.11 2005/06/15 03:13:51 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -469,12 +469,14 @@ about function addresses and register values.") ...@@ -469,12 +469,14 @@ about function addresses and register values.")
aa-bit lk-bit))) aa-bit lk-bit)))
t))) t)))
#'(lambda (segment posn) #'(lambda (segment posn)
(declare (ignore posn))
(let ((bo (logxor 8 bo))) ;; invert the test (let ((bo (logxor 8 bo))) ;; invert the test
(emit-b-form-inst segment 16 bo bi (emit-b-form-inst segment 16 bo bi
2 ; skip over next instruction 2 ; skip over next instruction
0 0) 0 0)
(emit-back-patch segment 4 (emit-back-patch segment 4
#'(lambda (segment posn) #'(lambda (segment posn)
(declare (ignore posn))
(emit-i-form-branch segment target lk-p))))) (emit-i-form-branch segment target lk-p)))))
)))) ))))
...@@ -1265,7 +1267,6 @@ about function addresses and register values.") ...@@ -1265,7 +1267,6 @@ about function addresses and register values.")
(disassem:dstate-cur-offs dstate) (disassem:dstate-cur-offs dstate)
vm:word-bytes vm:word-bytes
(disassem::dstate-byte-order dstate))) (disassem::dstate-byte-order dstate)))
(si (ldb (byte 0 16) word))
(rd (ldb (byte 5 21) word))) (rd (ldb (byte 5 21) word)))
(disassem:note (format nil "0x~x = ~D" shifted shifted) (disassem:note (format nil "0x~x = ~D" shifted shifted)
dstate) dstate)
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/move.lisp,v 1.6 2004/10/06 13:57:35 rtoy Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/move.lisp,v 1.7 2005/06/15 03:13:51 rtoy Rel $
;;; ;;;
;;; This file contains the SPARC VM definition of operand loading/saving and ;;; This file contains the SPARC VM definition of operand loading/saving and
;;; the Move VOP. ;;; the Move VOP.
...@@ -248,8 +248,7 @@ ...@@ -248,8 +248,7 @@
(:generator 20 (:generator 20
(move x arg) (move x arg)
(let ((done (gen-label)) (let ((done (gen-label))
(one-word (gen-label)) (one-word (gen-label)))
(initial-alloc (pad-data-block (+ 2 bignum-digits-offset))))
(inst srawi. temp x 29) (inst srawi. temp x 29)
(inst slwi y x 2) (inst slwi y x 2)
(inst beq done) (inst beq done)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment