Changeset 14690


Ignore:
Timestamp:
Mar 22, 2011, 1:42:08 PM (8 years ago)
Author:
gz
Message:

When processing code coverage notes, don't descend functions from other files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/nfcomp.lisp

    r14619 r14690  
    11231123(defun fcomp-digest-code-notes (lfun &optional refs)
    11241124  (unless (memq lfun refs)
     1125    (let ((source (function-source-note lfun)))
     1126      (when (and (source-note-p source)
     1127                 (not (equalp (source-note-filename source) *loading-file-source-file*)))
     1128        ;; Function is from a different file than being compiled, so don't digest it.
     1129        ;; This can happen when #. is used to create arbitrary literal constants.
     1130        #+no (warn "Reference to non-externalizable literal ~s" lfun)
     1131        (return-from fcomp-digest-code-notes)))
    11251132    (let* ((lfv (function-to-function-vector lfun))
    11261133           (start #-x86-target 0 #+x86-target (%function-code-words lfun))
Note: See TracChangeset for help on using the changeset viewer.