Commit b845fa96 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix a few compiler notes.

parent cf48b6dc
......@@ -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)
......
......@@ -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)))
......
......@@ -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))))
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment