Changeset 13019

Timestamp:

Oct 14, 2009, 2:33:39 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

In report-write-to-watched-object, just show the disassembled
instruction object, if present. We'll rely on PRINT-OBJECT to provide
something meaningful.

This is meant to de-kludge r13018.

File:

• trunk/source/level-1/l1-error-system.lisp (modified) (1 diff)

trunk/source/level-1/l1-error-system.lisp

@@ -140 +140 @@
        (format s "Write to a strange object ~s at byte offset ~s"
                object offset)))
-    #+x86-target
     (when instruction
-      (let* ((ds (make-x86-disassembly-state :mode-64 #+x8664-target t
-                                                      #+x8632-target nil
-                                             :code-vector nil
-                                             :code-pointer 0))
-             (str (with-output-to-string (*standard-output*)
-                    (x86-print-bare-disassembled-instruction ds instruction))))
-        (format s "~&Faulting instruction: ~a" (string-trim " " str))))))
+      (format s "~&Faulting instruction: ~s" instruction))))
 
 (define-condition type-error (error)