Ignore:
Timestamp:
Jul 26, 2010, 1:18:34 PM (9 years ago)
Author:
gz
Message:

support for reporting code coverage of acode, needs more testing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r13971 r14044  
    738738
    739739(defun nx-record-code-coverage-acode (afunc)
    740   (assert (and *nx-current-code-note* (null (afunc-parent afunc))))
     740  (assert *nx-current-code-note*)
    741741  (let* ((form->note (make-hash-table :test #'eq))
    742742         (*nx-acode-inner-refs* nil)
     
    776776                                         (setf (code-note-acode-range note)
    777777                                               (encode-file-range start pos))))))))))))))
    778     (setf (afunc-lfun-info afunc) (list* '%function-acode-string string (afunc-lfun-info afunc)))
     778    (iterate store ((afunc afunc))
     779      (setf (getf (afunc-lfun-info afunc) '%function-acode-string) string)
     780      (loop for inner in (afunc-inner-functions afunc)
     781        unless (getf (afunc-lfun-info inner) '%function-acode-string)
     782        do (store inner)))
    779783    afunc))
    780784
Note: See TracChangeset for help on using the changeset viewer.