;-*- cold-load:t; Mode:Common-Lisp; Package:SYSTEM-INTERNALS; Base:10; Fonts:(CPTFONT CPTFONTB) -*- 1;;; RESTRICTED RIGHTS LEGEND ;;;Use, duplication, or disclosure by the Government is subject to ;;;restrictions as set forth in subdivision (c)(1)(ii) of the Rights in ;;;Technical Data and Computer Software clause at 52.227-7013. ;;; ;;; TEXAS INSTRUMENTS INCORPORATED. ;;; P.O. BOX 2909 ;;; AUSTIN, TEXAS 78769 ;;; MS 2151 ;;;* ;1;; Copyright (C) 1986-1989 Texas Instruments Incorporated. All rights reserved.* 1;;; THE DEBUG-INFO-STRUCT ;;; FOR EACH fef, there is a structure DEBUG-INFO-STRUCT which contains additional ;;; information regarding the fef. The information includes the following: ;;; :NAME - the name of the compiled function ;;; :ARGLIST - the function's argument list as typed by its author ;;; :INTERPRETED-DEFINITION - if the function defines a SUBST or is proclaimed ;;; INLINE, this stores the interpreted definition for subsequent inline expansions. ;;; :LOCAL-MAP - describes the layout of local variables used by the function, i.e., ;;; it indicates how local variables are assigned to slots in the function's local ;;; block. The n'th element of the map is the local that lives there. ;;; :PLIST - a plist for other information not needed in a time-critical fashion. ;;; The plist will often contain some of the following: ;;; :MACROS-EXPANDED - a list of macros which were expanded when the function ;;; was compiled. ;;; :DOCUMENTATION - the function's documentation string ;;; :DESCRIPTIVE-ARGLIST - the argument list for the function as defined by ;;; (declare (arglist...)) ;;; As this arglist need not have anything to do with reality, it is not used by ;;; the compiler or the interpreter. ;;; :VALUES - the return-list of values as defined by (DECLARE (VALUES...)) ;;; :INTERNAL-FEF-OFFSETS -- describes the addresses within the fef of the function ;;; cells for internal functions of the fef. ;;; :INTERNAL-FEF-NAMES -- a list of the names of the internal functions of the fef. ;;; :FUNCTION-PARENT ;;; gives the name of a definition whose source code includes this function. This) ;;; is for functions defined automatically generated by Defstruct, Defflavor, etc. ;;; *SYS:1ENCAPSULATED-DEFINITION

;;; This means that this function was made to encapsulate an inner definition. ;;; *SYS:1RENAMINGS ;;; This item is used together with (encapsulated-definition ... :rename-within) ;;; and specifies what renamings are to be done to the original definition. Each ;;; element of the alist has the form (

). ;;; :SELF-FLAVOR ;;; It is a good idea to view a DEBUG-INFO-STRUCT as an plist. That it is not a plist is ;;; due to the fact certain utilities, such as the Error Handler, Compiler and the Interpreter ;;; need to access some fields in a time-critical manner and a plist search can be expensive. ;;; ;;; NOTE *MOST1 FIELDS ARE *DENOTED1 BY KEYWORDS.* (proclaim '(inline DEBUG-INFO-STRUCT-P)) ; work-around SPR 7434 -- DNG 4/19/89 (Defstruct (DEBUG-INFO-STRUCT :NAMED-ARRAY (:CONSTRUCTOR INTERNAL-MAKE-DEBUG-STRUCT) (:CALLABLE-CONSTRUCTORS nil) (:COPIER nil) (:PRINT-FUNCTION (LAMBDA (dbi stream depth) (DECLARE (ignore depth)) (SI:PRINTING-RANDOM-OBJECT (dbi stream) (PRINC "Debug-Info " stream) (PRIN1 (DBIS-NAME dbi) stream)))) (:PREDICATE DEBUG-INFO-STRUCT-P) (:CONC-NAME dbis-)) NAME ARGLIST INTERPRETED-DEFINITION LOCAL-MAP PLIST) 1;;; MAKING a DEBUG-INFO-STRUCT ;;; The following procedure is used to create a debug-struct . See also PUT-DEBUG-INFO-FIELD below.* (PROCLAIM '(SPECIAL *KEYWORD-PACKAGE*)) (Defun MAKE-DEBUG-INFO-STRUCT(&REST properties-and-values) (LET* ((sys:%inhibit-read-only t) (dbi (INTERNAL-MAKE-DEBUG-STRUCT))) (UNLESS (EVENP (LENGTH properties-and-values)) (FERROR nil "the list of properties and values has odd length ~d" (LENGTH properties-and-values))) (DO ((rest properties-and-values (CDDR rest)) key-field) ((ATOM rest) dbi) (CASE (SETQ key-field (CAR rest)) (:name (SETF (DBIS-NAME dbi) (CADR rest))) (:arglist (WHEN (MEMBER '"e (CADR rest) :test #'eq) (SETF (GETF (DBIS-PLIST dbi) :quote-degree) (COMPUTE-QUOTE-DEGREE (CADR rest)))) (SETF (DBIS-ARGLIST dbi) (CADR rest))) (:interpreted-definition (SETF (DBIS-INTERPRETED-DEFINITION dbi) (CADR rest))) (:local-map (SETF (DBIS-LOCAL-MAP dbi) (CADR rest))) (:plist (SETF (DBIS-PLIST dbi) (CADR rest))) ;; this can screw anything done in the following line (t (SETF (GETF (DBIS-PLIST dbi) key-field) (CADR rest))))))) ;;; EXTRACTING data from a DEBUG-INFO-STRUCT 1;;; ;;; GET-DEBUG-INFO-STRUCT is the function used to extract a field from a debug-info-structure. ;;; Except for the Compiler,the Interpreter and the Error handler, this function should be used ;;; if upward compatibility with future releases is desired. ;;; Examples: (let