1.0.32.29: Add build flag :sb-xref-for-internals.

[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 a184ffb..b51b9f5 100644 (file)
--- a/src/compiler/x86/target-insts.lisp
+++ b/src/compiler/x86/target-insts.lisp
@@ -21,7 +21,7 @@
            (type (member t nil) print-size-p)
            (type sb!disassem:disassem-state dstate))
   (when print-size-p
-    (princ (sb!disassem:dstate-get-prop dstate 'width) stream)
+    (princ (inst-operand-size dstate) stream)
     (princ '| PTR | stream))
   (write-char #\[ stream)
   (let ((firstp t))