Ignore:
Timestamp:
Jun 25, 2009, 3:34:05 PM (10 years ago)
Author:
gz
Message:

Code coverage support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r12210 r12300  
    994994         (nth-immediate lfun 1))))
    995995
     996
     997(defun function-entry-code-note (fn)
     998  (let ((bits (lfun-bits (setq fn (require-type fn 'function)))))
     999    (declare (fixnum bits))
     1000    (and (logbitp $lfbits-code-coverage-bit bits)
     1001         (loop for i upfrom 1 as imm = (nth-immediate fn i)
     1002               when (code-note-p imm) do (return imm)))))
    9961003
    9971004
Note: See TracChangeset for help on using the changeset viewer.