X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fshow.lisp;h=a23882e4badecbe828eb82788a78ed0255a201f7;hb=7dfa54273d2ebc6c2be9a39ab5cd6df639d340c9;hp=b94e4bfd87882b5d5648476b6de6a1160da918b6;hpb=1ac136852028fcd4d5568e996ebc612136c26b4f;p=sbcl.git

diff --git a/src/compiler/x86-64/show.lisp b/src/compiler/x86-64/show.lisp
index b94e4bf..a23882e 100644
--- a/src/compiler/x86-64/show.lisp
+++ b/src/compiler/x86-64/show.lisp
@@ -32,10 +32,8 @@
     (inst push rbp-tn)
     (inst and rsp-tn -16)
     (storew rax rsp-tn)
-    (inst lea rax (make-fixup "debug_print" :foreign))
-    (inst lea call-target
-          (make-ea :qword
-                   :disp (make-fixup "call_into_c" :foreign)))
+    (inst mov rax (make-fixup "debug_print" :foreign))
+    (inst mov call-target (make-fixup "call_into_c" :foreign))
     (inst call call-target)
     (inst mov rsp-tn rbp-tn)
     (inst pop rbp-tn)