X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Finsts.lisp;h=2abd0ea3a20076b98afe66db043968b9636203b0;hb=b63c4fb9b98fa8188e17ba926e150ba417a74635;hp=86c1c0e9d061bb9696fa3fde2267a7ac3ca3232c;hpb=cfa0355f88de28bf980b7e14ff9f29d02b108f8f;p=sbcl.git

diff --git a/src/compiler/x86-64/insts.lisp b/src/compiler/x86-64/insts.lisp
index 86c1c0e..2abd0ea 100644
--- 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)