Ignore:
Timestamp:
May 6, 2010, 7:56:41 PM (10 years ago)
Author:
gz
Message:

Store checksum with code coverage info, signal error if try to color a different file than stored; Also while in there, add a restart to coverage coloring to let you skip a file if there are any errors.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl/level-0/nfasload.lisp

    r13070 r13685  
    737737
    738738;;; files compiled with code coverage do this
    739 ;; list of lfuns and (source-fn-name . vector-of-lfuns), the latter put there by fasloading.
     739;; list of lfuns and (source-fn-name vector-of-lfuns external-format id), the latter put there by fasloading.
    740740(defvar *code-covered-functions* nil)
    741741
    742 (defun register-code-covered-functions (functions)
     742(defun register-code-covered-functions (functions &optional external-format id)
    743743  ;; unpack the parent-note references - see comment at fcomp-digest-code-notes
    744744  (labels ((reg (lfun refs)
     
    767767                                       (and p q (equalp p q)))))))))
    768768    (when (null a)
    769       (push (setq a (list nil nil)) *code-covered-functions*))
    770     (setf (car a) *loading-file-source-file* (cdr a) functions))
     769      (push (setq a (list nil nil nil nil)) *code-covered-functions*))
     770    (setf (car a) *loading-file-source-file*
     771          (cadr a) functions
     772          (caddr a) external-format
     773          (cadddr a) id))
    771774  nil)
    772775
Note: See TracChangeset for help on using the changeset viewer.