Changeset 13019 for trunk/source/level-1


Ignore:
Timestamp:
Oct 14, 2009, 9:33:39 PM (10 years ago)
Author:
rme
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-error-system.lisp

    r13018 r13019  
    140140       (format s "Write to a strange object ~s at byte offset ~s"
    141141               object offset)))
    142     #+x86-target
    143142    (when instruction
    144       (let* ((ds (make-x86-disassembly-state :mode-64 #+x8664-target t
    145                                                       #+x8632-target nil
    146                                              :code-vector nil
    147                                              :code-pointer 0))
    148              (str (with-output-to-string (*standard-output*)
    149                     (x86-print-bare-disassembled-instruction ds instruction))))
    150         (format s "~&Faulting instruction: ~a" (string-trim " " str))))))
     143      (format s "~&Faulting instruction: ~s" instruction))))
    151144
    152145(define-condition type-error (error)
Note: See TracChangeset for help on using the changeset viewer.