0.8.18.14:

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

diff --git a/src/compiler/x86-64/show.lisp b/src/compiler/x86-64/show.lisp
index bc475e4..f0e0201 100644 (file)
--- a/src/compiler/x86-64/show.lisp
+++ b/src/compiler/x86-64/show.lisp
@@ -22,11 +22,16 @@
               :from :eval
               :to (:result 0))
              rax)
+  (:temporary (:sc unsigned-reg) call-target)
   (:results (result :scs (descriptor-reg)))
   (:save-p t)
   (:generator 100
     (inst push object)
     (inst lea rax (make-fixup (extern-alien-name "debug_print") :foreign))
-    (inst call (make-fixup (extern-alien-name "call_into_c") :foreign))
+    (inst lea call-target
+         (make-ea :qword
+                  :disp (make-fixup (extern-alien-name "call_into_c")
+                                    :foreign)))
+    (inst call call-target)
     (inst add rsp-tn n-word-bytes)
     (move result rax)))