X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Finsts.lisp;h=801be79e9cdb31c8ae4dcef9f00063b4af49b3f2;hb=bf5a814edd504f1497ef1c04966d44310e54ef28;hp=4fe92509545abcd2179272126bf3feb2d8946c24;hpb=809d675e7f3abcf19c5e2a5ee612a0798b42a907;p=sbcl.git

diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp
index 4fe9250..801be79 100644
--- a/src/compiler/sparc/insts.lisp
+++ b/src/compiler/sparc/insts.lisp
@@ -130,6 +130,7 @@ about function addresses and register values.")
 	 (rd (ldb (byte 5 25) word))
 	 (immed-p (not (zerop (ldb (byte 1 13) word))))
 	 (immed-val (sign-extend-immed-value (ldb (byte 13 0) word))))
+    (declare (ignore immed-p))
     ;; Only the value of format and rd are guaranteed to be correct
     ;; because the disassembler is trying to print out the value of a
     ;; register.  The other values may not be right.
@@ -207,6 +208,7 @@ about function addresses and register values.")
 			  dstate)))))))
 
 (defun handle-jmpl-inst (rs1 immed-val rd dstate)
+  (declare (ignore rd))
   (let* ((sethi (assoc rs1 *note-sethi-inst*)))
     (when sethi
       ;; RS1 was used in a SETHI instruction.  Assume that