diff --git a/compiler/node.lisp b/compiler/node.lisp index 1459fabb66afde7409db59ac76265d34145f4bac..929b0be6a8a634af9cbd4debdf8f6be8e2366aad 100644 --- a/compiler/node.lisp +++ b/compiler/node.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/node.lisp,v 1.27 1993/02/26 08:39:09 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/node.lisp,v 1.28 1993/03/12 15:37:51 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -18,7 +18,7 @@ ;;; (in-package "C") -(export '(component component-info)) +(export '(component component-info block-number)) ;;; Defvars for these variables appear later. (proclaim '(special *current-path* *lexical-environment* *current-component* @@ -317,7 +317,10 @@ ;;; The CBlock structure represents a basic block. We include SSet-Element so ;;; that we can have sets of blocks. Initially the SSet-Element-Number is -;;; null, but we number in reverse DFO before we do any set operations. +;;; null, DFO analysis numbers in reverse DFO. During IR2 conversion, IR1 +;;; blocks are re-numbered in forward emit order. This latter numbering also +;;; forms the basis of the block numbering in the debug-info (though that is +;;; relative to the start of the function.) ;;; (defstruct (cblock (:print-function %print-block) (:include sset-element) @@ -850,8 +853,11 @@ ;; ;; The original function or macro lambda list, or :UNSPECIFIED if this is a ;; compiler created function. - (arg-documentation nil :type (or list (member :unspecified)))) - + (arg-documentation nil :type (or list (member :unspecified))) + ;; + ;; Various rare random info that dives code generation & stuff. + (plist () :type list)) + (defprinter functional name)