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