0.6.12.9:

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

diff --git a/src/compiler/x86/target-insts.lisp b/src/compiler/x86/target-insts.lisp
index 15f5475..c021af1 100644 (file)
--- a/src/compiler/x86/target-insts.lisp
+++ b/src/compiler/x86/target-insts.lisp
@@ -47,6 +47,13 @@
          (unless (or firstp (minusp offset))
            (write-char #\+ stream))
          (if firstp
-             (sb!disassem:princ16 offset stream)
-             (princ offset stream))))))
+            (progn
+              (sb!disassem:princ16 offset stream)
+              (or (minusp offset)
+                  (nth-value 1
+                    (sb!disassem::note-code-constant-absolute offset dstate))
+                  (sb!disassem:maybe-note-assembler-routine offset
+                                                            nil
+                                                            dstate)))
+            (princ offset stream))))))
   (write-char #\] stream))