Changeset 14690 for trunk/source

Timestamp:

Mar 22, 2011, 1:42:08 PM (10 years ago)

Author:

gz

Message:

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

File:

• trunk/source/lib/nfcomp.lisp (modified) (1 diff)

trunk/source/lib/nfcomp.lisp

@@ -1123 +1123 @@
 (defun fcomp-digest-code-notes (lfun &optional refs)
   (unless (memq lfun refs)
+    (let ((source (function-source-note lfun)))
+      (when (and (source-note-p source)
+                 (not (equalp (source-note-filename source) *loading-file-source-file*)))
+        ;; Function is from a different file than being compiled, so don't digest it.
+        ;; This can happen when #. is used to create arbitrary literal constants.
+        #+no (warn "Reference to non-externalizable literal ~s" lfun)
+        (return-from fcomp-digest-code-notes)))
     (let* ((lfv (function-to-function-vector lfun))
            (start #-x86-target 0 #+x86-target (%function-code-words lfun))