Changeset 11378


Ignore:
Timestamp:
Nov 17, 2008, 10:51:39 AM (11 years ago)
Author:
gb
Message:

In X86-PRINT-DISASSEMBLED-INSTRUCTION, check for null source-note.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x86-disassemble.lisp

    r11373 r11378  
    27302730         (pc (- addr entry)))
    27312731    (let ((source-note (find-source-note-at-pc function pc)))
    2732       (unless (eql (source-note-file-range source-note)
    2733                    (source-note-file-range *previous-source-note*))
    2734         (setf *previous-source-note* source-note)
    2735         (let* ((source-text (source-note-text source-note))
    2736                (text (if source-text
    2737                        (string-sans-most-whitespace source-text 100)
    2738                        "#<no source text>")))
    2739           (format t "~&~%;;; ~A" text))))
     2732      (when source-note
     2733        (unless (eql (source-note-file-range source-note)
     2734                     (source-note-file-range *previous-source-note*))
     2735          (setf *previous-source-note* source-note)
     2736          (let* ((source-text (source-note-text source-note))
     2737                 (text (if source-text
     2738                         (string-sans-most-whitespace source-text 100)
     2739                         "#<no source text>")))
     2740            (format t "~&~%;;; ~A" text)))))
    27402741    (when (x86-di-labeled instruction)
    27412742      (format t "~&L~d~%" pc)
Note: See TracChangeset for help on using the changeset viewer.