Ignore:
Timestamp:
Oct 30, 2009, 10:32:15 PM (10 years ago)
Author:
gz
Message:

readloop source text recording (r13124, r13131)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/x86-disassemble.lisp

    r13070 r13146  
    28132813  (let ((source-note (function-source-note function)))
    28142814    (when source-note
    2815       (format t ";; Source: ~S:~D-~D"
    2816               (source-note-filename source-note)
    2817               (source-note-start-pos source-note)
    2818               (source-note-end-pos source-note))
    2819       ;; Fetch source from file if don't already have it.
    2820       (ensure-source-note-text source-note))))
     2815      (ensure-source-note-text source-note)
     2816      (if (source-note-filename source-note)
     2817        (format t ";; ~S:~D-~D"
     2818                (source-note-filename source-note)
     2819                (source-note-start-pos source-note)
     2820                (source-note-end-pos source-note))
     2821          (let* ((source-text (source-note-text source-note)))
     2822            (when source-text
     2823              (format t ";;; ~A" (string-sans-most-whitespace source-text 100))))))))
    28212824
    28222825(defun x86-disassemble-xfunction (function xfunction
Note: See TracChangeset for help on using the changeset viewer.