From 8ae269def8bdbb2b17e5e12dd8e75a71ce603690 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 3 Aug 1992 19:03:35 +0000 Subject: [PATCH] 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. --- compiler/debug-dump.lisp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index fd2575fe9..3049a8d1b 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ ;;; ;;; Written by Rob MacLachlan ;;; -(in-package 'c) +(in-package :c) (defvar *byte-buffer*) (declaim (type (vector (unsigned-byte 8)) *byte-buffer*)) @@ -39,12 +39,11 @@ (kind nil :type location-kind) ;; ;; 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.) (vop nil :type vop)) - ;;; NOTE-DEBUG-LOCATION -- Interface ;;; ;;; Called during code generation in places where there is an "interesting" @@ -52,12 +51,13 @@ ;;; thus want debug info. ;;; (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)) - (setf (ir2-block-locations (vop-block vop)) - (nconc (ir2-block-locations (vop-block vop)) - (list (make-location-info kind label vop)))) - (undefined-value)) + (let ((location (make-location-info kind label vop))) + (setf (ir2-block-locations (vop-block vop)) + (nconc (ir2-block-locations (vop-block vop)) + (list location))) + location)) ;;; IR2-BLOCK-ENVIRONMENT -- Interface -- GitLab