From b845fa969a45dd0519d1b775a15facd521a7647f Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sun, 23 Dec 2012 12:15:12 -0800
Subject: [PATCH] Fix a few compiler notes.

---
 src/compiler/float-tran.lisp      | 8 +++-----
 src/compiler/x86/arith.lisp       | 1 -
 src/compiler/x86/insts.lisp       | 6 +++++-
 src/compiler/x86/sse2-c-call.lisp | 3 ---
 4 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index d0a3703cc..3a663a834 100644
--- a/src/compiler/float-tran.lisp
+++ b/src/compiler/float-tran.lisp
@@ -640,11 +640,9 @@
   (unless (constant-continuation-p y)
     (give-up))
   (let ((val (continuation-value y)))
-    (multiple-value-bind (frac exp sign)
-	(decode-float val)
-      (unless (= frac 0.5)
-	(give-up))
-      `(* x (float (/ ,val) x)))))
+    (unless (= (decode-float val) 0.5)
+      (give-up))
+    `(* x (float (/ ,val) x))))
 
 ;; Convert 2*x to x+x.
 (deftransform * ((x y) (float real) * :when :both)
diff --git a/src/compiler/x86/arith.lisp b/src/compiler/x86/arith.lisp
index b4b43f75e..5751abbf7 100644
--- a/src/compiler/x86/arith.lisp
+++ b/src/compiler/x86/arith.lisp
@@ -908,7 +908,6 @@
   (:arg-types unsigned-num)
   (:results (result :scs (unsigned-reg)))
   (:result-types positive-fixnum)
-  (:temporary (:sc unsigned-reg :from (:argument 0)) temp)
   (:guard (backend-featurep :sse3))
   (:generator 2
     (inst popcnt result arg)))
diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index e22a0139b..2417c04a0 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -556,7 +556,8 @@
 
 (defun prefilter-reg-r (value dstate)
   (declare (type reg value)
-           (type disassem:disassem-state dstate))
+           (type disassem:disassem-state dstate)
+	   (ignore dstate))
   value)
 
 ;;; This is a sort of bogus prefilter that just
@@ -3115,6 +3116,7 @@
   (imm :type 'imm-data))
 
 (defun emit-sse-inst (segment dst src prefix opcode &key operand-size)
+  (declare (ignore operand-size))
   (when prefix
     (emit-byte segment prefix))
   (emit-byte segment #x0f)
@@ -3223,11 +3225,13 @@
 ;; MOVHPS (respectively).  I (rtoy) don't know how to fix that;
 ;; instead. just print a note with the correct instruction name.
 (defun movlps-control (chunk inst stream dstate)
+  (declare (ignore inst))
   (when stream
     (when (>= (ldb (byte 8 16) chunk) #xc0)
       (disassem:note "MOVHLPS" dstate))))
 
 (defun movhps-control (chunk inst stream dstate)
+  (declare (ignore inst))
   (when stream
     (when (>= (ldb (byte 8 16) chunk) #xc0)
       (disassem:note "MOVLHPS" dstate))))
diff --git a/src/compiler/x86/sse2-c-call.lisp b/src/compiler/x86/sse2-c-call.lisp
index 811de9883..a5bd80f59 100644
--- a/src/compiler/x86/sse2-c-call.lisp
+++ b/src/compiler/x86/sse2-c-call.lisp
@@ -34,7 +34,6 @@
 		   :from :eval :to :result) ecx)
   (:temporary (:sc unsigned-reg :offset edx-offset
 		   :from :eval :to :result) edx)
-  (:temporary (:sc double-stack) temp)
   (:node-var node)
   (:vop-var vop)
   (:save-p t)
@@ -77,7 +76,6 @@
 (define-vop (alloc-number-stack-space)
   (:info amount)
   (:results (result :scs (sap-reg any-reg)))
-  (:node-var node)
   (:generator 0
     (assert (location= result esp-tn))
 
@@ -98,7 +96,6 @@
 
 (define-vop (dealloc-number-stack-space)
   (:info amount)
-  (:node-var node)
   (:generator 0
     (unless (zerop amount)
       (let ((delta (logandc2 (+ amount 3) 3)))
-- 
GitLab