0.8.19.30: less COMPILE-FILE verbosity

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

diff --git a/src/compiler/x86-64/insts.lisp b/src/compiler/x86-64/insts.lisp
index 86c1c0e..2abd0ea 100644 (file)
--- a/src/compiler/x86-64/insts.lisp
+++ b/src/compiler/x86-64/insts.lisp
@@ -215,7 +215,7 @@
                         (if (= index-reg #b100) nil index-reg)
                         (ash 1 index-scale))))))
            ((and (= mod #b00) (= r/m #b101))
-            (list nil (sb!disassem:read-signed-suffix 32 dstate)) )
+            (list 'rip (sb!disassem:read-signed-suffix 32 dstate)) )
            ((= mod #b00)
             (list full-reg))
            ((= mod #b01)