X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Ffloat.lisp;h=999771b524553ed9aa0c64243cc2cd45eba866ae;hb=bdafd7d230b1b8baa9faf9366884591bf3782992;hp=40d6ade6ec109e5760fc1bdec7db88859dfb0c53;hpb=ff8359b556436696f9e8b94195b073da636c719f;p=sbcl.git

diff --git a/src/compiler/x86-64/float.lisp b/src/compiler/x86-64/float.lisp
index 40d6ade..999771b 100644
--- 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)))))