X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Finsts.lisp;h=d86150993b1497e5be9b5e0f42795d1ab4dbc943;hb=7e6637658236983ecbabea50f167fb9d3c5ed505;hp=914918c99e935ad6ea8addf74501e4f7e2a453d2;hpb=7745639905e4b82449bd87dcead61f025ab338d0;p=sbcl.git

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index 914918c..d861509 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -199,7 +199,10 @@
 
 (sb!disassem:define-argument-type displacement
   :sign-extend t
-  :use-label #'offset-next)
+  :use-label #'offset-next
+  :printer #'(lambda (value stream dstate)
+	       (sb!disassem:maybe-note-assembler-routine value nil dstate)
+	       (print-label value stream dstate)))
 
 (sb!disassem:define-argument-type accum
   :printer #'(lambda (value stream dstate)