Ignore:
Timestamp:
Feb 17, 2008, 4:37:21 PM (13 years ago)
Author:
gz
Message:

checkpoint work in progress, mainly some final cleanup, reorg, don't try to track atoms, keep track of source through transforms; reporting implementation in library;cover.lisp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gz-working/compiler/PPC/ppc2.lisp

    r8477 r8505  
    497497                            (if (and fname (symbolp fname)) (symbol-name fname)))))
    498498                   (ppc2-digest-symbols)
    499                    (ppc2-digest-source-notes))))
    500           (ppc2-reset-source-notes)
     499                   (ppc2-digest-code-notes))))
     500          (ppc2-reset-code-notes)
    501501          (backend-remove-labels))))
    502502    afunc))
     
    21562156        (! vpop-register ppc::arg_x)))))
    21572157
    2158 (defppc2 ppc2-with-source-note with-source-note (seg vreg xfer note form &aux val)
     2158(defppc2 ppc2-with-code-note with-code-note (seg vreg xfer note form &aux val)
    21592159  (when *record-pc-mapping*
    2160     (append-dll-node (setf (source-note-start-pc note) (make-vinsn-label nil)) seg))
     2160    (append-dll-node (setf (code-note-start-pc note) (make-vinsn-label nil)) seg))
    21612161  (when *compile-code-coverage*
    21622162    (let ((afunc *ppc2-cur-afunc*))
     
    21672167  (setq val (ppc2-form seg vreg xfer form))
    21682168  (when *record-pc-mapping*
    2169     (append-dll-node (setf (source-note-end-pc note) (make-vinsn-label nil)) seg))
     2169    (append-dll-node (setf (code-note-end-pc note) (make-vinsn-label nil)) seg))
    21702170  val)
    21712171
    2172 (defun ppc2-digest-source-notes ()
     2172(defun ppc2-digest-code-notes ()
    21732173  (when (or *compile-code-coverage* *record-pc-mapping*)
    21742174    (flet ((address (label)
     
    21792179      (labels ((rec (note)
    21802180                 (when note
    2181                    (setf (source-note-start-pc note) (address (source-note-start-pc note)))
    2182                    (setf (source-note-end-pc note) (address (source-note-end-pc note)))
    2183                    (dolist (subnote (source-note-subform-notes note)) (rec subnote)))))
     2181                   (setf (code-note-start-pc note) (address (code-note-start-pc note)))
     2182                   (setf (code-note-end-pc note) (address (code-note-end-pc note)))
     2183                   (dolist (subnote (code-note-subform-notes note)) (rec subnote)))))
    21842184        (rec (getf (afunc-lfun-info *ppc2-cur-afunc*) 'function-source-note))))))
    21852185
    2186 (defun ppc2-reset-source-notes ()
     2186(defun ppc2-reset-code-notes ()
    21872187  (when (or *compile-code-coverage* *record-pc-mapping*)
    21882188    (flet ((clear (label) (if (typep label 'vinsn-label) nil label)))
    21892189      (labels ((rec (note)
    21902190                 (when note
    2191                    (setf (source-note-start-pc note) (clear (source-note-start-pc note)))
    2192                    (setf (source-note-end-pc note) (clear (source-note-end-pc note)))
    2193                    (dolist (subnote (source-note-subform-notes note)) (rec subnote)))))
     2191                   (setf (code-note-start-pc note) (clear (code-note-start-pc note)))
     2192                   (setf (code-note-end-pc note) (clear (code-note-end-pc note)))
     2193                   (dolist (subnote (code-note-subform-notes note)) (rec subnote)))))
    21942194        (rec (getf (afunc-lfun-info *ppc2-cur-afunc*) 'function-source-note))))))
    21952195
Note: See TracChangeset for help on using the changeset viewer.