1.0.30.14: some SB-CLTL2 docstrings

[sbcl.git] / src / compiler / x86-64 / float.lisp

diff --git a/src/compiler/x86-64/float.lisp b/src/compiler/x86-64/float.lisp
index 40d6ade..b0d1b77 100644 (file)
--- a/src/compiler/x86-64/float.lisp
+++ b/src/compiler/x86-64/float.lisp
@@ -394,7 +394,7 @@
                    (inst ,opinst r y))
                   (t
                    (if (sc-is x ,constant-sc)
-                       (inst ,load-inst r (get-constant x))
+                       (inst ,load-inst tmp (get-constant x))
                        (move tmp x))
                    (inst ,opinst tmp y)
                    (move r tmp)))))
@@ -830,7 +830,7 @@
                             :load-if (not (sc-is x ,constant-sc)))
                          (y :scs (,sc ,constant-sc)
                             :target mask
-                            :load-if (not (sc-is x ,constant-sc))))
+                            :load-if (not (sc-is y ,constant-sc))))
                   (:arg-types ,type ,type)
                   (:temporary (:sc ,sc :from :eval) mask)
                   (:temporary (:sc any-reg) bits)