Ignore:
Timestamp:
Feb 21, 2008, 10:05:23 PM (14 years ago)
Author:
mb
Message:

Merge in mb-coverage-merge branch. No other changes.

File:
1 edited

Legend:

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

    r8439 r8554  
    27262726         (entry (x86-ds-entry-point ds)))
    27272727    (let* ((pc (- addr entry)))
    2728       (let* ((source-note (getf (%lfun-info function) 'function-source-note))
     2728      (let* ((source-note (source-note-from-%lfun-info (%lfun-info function)))
    27292729             (source-info (find-source-at-pc function pc))
    27302730             (text (if (and source-info
     
    27322732                            (plusp (cdr (getf source-info :source-text-range))))
    27332733                       (string-sans-most-whitespace
    2734                         (subseq (%fast-uncompact (getf source-note :%text))
     2734                        (subseq (source-note-text source-note)
    27352735                                (car (getf source-info :source-text-range))
    27362736                                (cdr (getf source-info :source-text-range)))
Note: See TracChangeset for help on using the changeset viewer.