/[cmucl]/src/compiler/debug-dump.lisp
ViewVC logotype

Diff of /src/compiler/debug-dump.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by wlott, Tue Jul 14 03:41:23 1992 UTC revision 1.31 by wlott, Mon Aug 3 19:03:35 1992 UTC
# Line 16  Line 16 
16  ;;;  ;;;
17  ;;; Written by Rob MacLachlan  ;;; Written by Rob MacLachlan
18  ;;;  ;;;
19  (in-package 'c)  (in-package :c)
20    
21  (defvar *byte-buffer*)  (defvar *byte-buffer*)
22  (declaim (type (vector (unsigned-byte 8)) *byte-buffer*))  (declaim (type (vector (unsigned-byte 8)) *byte-buffer*))
# Line 39  Line 39 
39    (kind nil :type location-kind)    (kind nil :type location-kind)
40    ;;    ;;
41    ;; The label pointing to the interesting code location.    ;; The label pointing to the interesting code location.
42    (label nil :type (or label index))    (label nil :type (or label index null))
43    ;;    ;;
44    ;; The VOP that emitted this location (for node, save-set, ir2-block, etc.)    ;; The VOP that emitted this location (for node, save-set, ir2-block, etc.)
45    (vop nil :type vop))    (vop nil :type vop))
46    
   
47  ;;; NOTE-DEBUG-LOCATION  --  Interface  ;;; NOTE-DEBUG-LOCATION  --  Interface
48  ;;;  ;;;
49  ;;;    Called during code generation in places where there is an "interesting"  ;;;    Called during code generation in places where there is an "interesting"
# Line 52  Line 51 
51  ;;; thus want debug info.  ;;; thus want debug info.
52  ;;;  ;;;
53  (defun note-debug-location (vop label kind)  (defun note-debug-location (vop label kind)
54    (declare (type vop vop) (type (or label index) label)    (declare (type vop vop) (type (or label null) label)
55             (type location-kind kind))             (type location-kind kind))
56    (setf (ir2-block-locations (vop-block vop))    (let ((location (make-location-info kind label vop)))
57          (nconc (ir2-block-locations (vop-block vop))      (setf (ir2-block-locations (vop-block vop))
58                 (list (make-location-info kind label vop))))            (nconc (ir2-block-locations (vop-block vop))
59    (undefined-value))                   (list location)))
60        location))
61    
62    
63  ;;; IR2-BLOCK-ENVIRONMENT  --  Interface  ;;; IR2-BLOCK-ENVIRONMENT  --  Interface

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

  ViewVC Help
Powered by ViewVC 1.1.5