Skip to content
Snippets Groups Projects
Commit 8ae269de authored by wlott's avatar wlott
Browse files

Changed note-debug-location to return the location-info structure created,

so that it can be filled in later if we don't know all the info now.
Changed make-location-info to allow the label to be NIL, meaning it will be
filled in later.
parent 1b1b3eea
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.30 1992/07/14 03:41:23 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.31 1992/08/03 19:03:35 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -16,7 +16,7 @@ ...@@ -16,7 +16,7 @@
;;; ;;;
;;; Written by Rob MacLachlan ;;; Written by Rob MacLachlan
;;; ;;;
(in-package 'c) (in-package :c)
(defvar *byte-buffer*) (defvar *byte-buffer*)
(declaim (type (vector (unsigned-byte 8)) *byte-buffer*)) (declaim (type (vector (unsigned-byte 8)) *byte-buffer*))
...@@ -39,12 +39,11 @@ ...@@ -39,12 +39,11 @@
(kind nil :type location-kind) (kind nil :type location-kind)
;; ;;
;; The label pointing to the interesting code location. ;; The label pointing to the interesting code location.
(label nil :type (or label index)) (label nil :type (or label index null))
;; ;;
;; 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.)
(vop nil :type vop)) (vop nil :type vop))
;;; NOTE-DEBUG-LOCATION -- Interface ;;; NOTE-DEBUG-LOCATION -- Interface
;;; ;;;
;;; Called during code generation in places where there is an "interesting" ;;; Called during code generation in places where there is an "interesting"
...@@ -52,12 +51,13 @@ ...@@ -52,12 +51,13 @@
;;; thus want debug info. ;;; thus want debug info.
;;; ;;;
(defun note-debug-location (vop label kind) (defun note-debug-location (vop label kind)
(declare (type vop vop) (type (or label index) label) (declare (type vop vop) (type (or label null) label)
(type location-kind kind)) (type location-kind kind))
(setf (ir2-block-locations (vop-block vop)) (let ((location (make-location-info kind label vop)))
(nconc (ir2-block-locations (vop-block vop)) (setf (ir2-block-locations (vop-block vop))
(list (make-location-info kind label vop)))) (nconc (ir2-block-locations (vop-block vop))
(undefined-value)) (list location)))
location))
;;; IR2-BLOCK-ENVIRONMENT -- Interface ;;; IR2-BLOCK-ENVIRONMENT -- Interface
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment