From d471e7c1b1f7501b901be40d06a328ee713db138 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 15 Jun 2005 03:13:51 +0000 Subject: [PATCH] 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. --- compiler/ppc/alloc.lisp | 3 +-- compiler/ppc/insts.lisp | 5 +++-- compiler/ppc/move.lisp | 5 ++--- 3 files changed, 6 insertions(+), 7 deletions(-) diff --git a/compiler/ppc/alloc.lisp b/compiler/ppc/alloc.lisp index fc4cf6102..ec36e13d1 100644 --- a/compiler/ppc/alloc.lisp +++ b/compiler/ppc/alloc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ (:generator 4 (with-fixed-allocation (result pa-flag temp type words :lowtag lowtag) ))) -)) (define-vop (var-alloc) (:args (extra :scs (any-reg))) diff --git a/compiler/ppc/insts.lisp b/compiler/ppc/insts.lisp index 52f743c2d..aa37c35f0 100644 --- a/compiler/ppc/insts.lisp +++ b/compiler/ppc/insts.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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.") aa-bit lk-bit))) t))) #'(lambda (segment posn) + (declare (ignore posn)) (let ((bo (logxor 8 bo))) ;; invert the test (emit-b-form-inst segment 16 bo bi 2 ; skip over next instruction 0 0) (emit-back-patch segment 4 #'(lambda (segment posn) + (declare (ignore posn)) (emit-i-form-branch segment target lk-p))))) )))) @@ -1265,7 +1267,6 @@ about function addresses and register values.") (disassem:dstate-cur-offs dstate) vm:word-bytes (disassem::dstate-byte-order dstate))) - (si (ldb (byte 0 16) word)) (rd (ldb (byte 5 21) word))) (disassem:note (format nil "0x~x = ~D" shifted shifted) dstate) diff --git a/compiler/ppc/move.lisp b/compiler/ppc/move.lisp index 5577d9278..83a239aa7 100644 --- a/compiler/ppc/move.lisp +++ b/compiler/ppc/move.lisp @@ -7,7 +7,7 @@ ;;; 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 ;;; the Move VOP. @@ -248,8 +248,7 @@ (:generator 20 (move x arg) (let ((done (gen-label)) - (one-word (gen-label)) - (initial-alloc (pad-data-block (+ 2 bignum-digits-offset)))) + (one-word (gen-label))) (inst srawi. temp x 29) (inst slwi y x 2) (inst beq done) -- GitLab