1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- $Revision: 1.1.16.1 $
11 -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. --
13 -- GNAT is free software; you can redistribute it and/or modify it under --
14 -- terms of the GNU General Public License as published by the Free Soft- --
15 -- ware Foundation; either version 2, or (at your option) any later ver- --
16 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
17 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
18 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
19 -- for more details. You should have received a copy of the GNU General --
20 -- Public License distributed with GNAT; see file COPYING. If not, write --
21 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
22 -- MA 02111-1307, USA. --
24 -- GNAT was originally developed by the GNAT team at New York University. --
25 -- Extensive contributions were provided by Ada Core Technologies Inc. --
27 ------------------------------------------------------------------------------
29 with Types
; use Types
;
32 -- This package provides printing routines for the abstract syntax tree
33 -- These routines are intended only for debugging use.
36 -- This routine is called from the GNAT main program to dump trees as
37 -- requested by debug options (including tree of Standard if requested).
39 procedure Print_Tree_Node
(N
: Node_Id
; Label
: String := "");
40 -- Prints a single tree node, without printing descendants. The Label
41 -- string is used to preface each line of the printed output.
43 procedure Print_Tree_List
(L
: List_Id
);
44 -- Prints a single node list, without printing the descendants of any
45 -- of the nodes in the list
47 procedure Print_Tree_Elist
(E
: Elist_Id
);
48 -- Prints a single node list, without printing the descendants of any
49 -- of the nodes in the list
51 procedure Print_Node_Subtree
(N
: Node_Id
);
52 -- Prints the subtree routed at a specified tree node, including all
53 -- referenced descendants.
55 procedure Print_List_Subtree
(L
: List_Id
);
56 -- Prints the subtree consisting of the given node list and all its
57 -- referenced descendants.
59 procedure Print_Elist_Subtree
(E
: Elist_Id
);
60 -- Prints the subtree consisting of the given element list and all its
61 -- referenced descendants.
63 procedure PE
(E
: Elist_Id
);
64 -- Debugging procedure (to be called within gdb)
65 -- same as Print_Tree_Elist
67 procedure PL
(L
: List_Id
);
68 -- Debugging procedure (to be called within gdb)
69 -- same as Print_Tree_List
71 procedure PN
(N
: Node_Id
);
72 -- Debugging procedure (to be called within gdb)
73 -- same as Print_Tree_Node with Label = ""
75 procedure PT
(N
: Node_Id
);
76 -- Debugging procedure (to be called within gdb)
77 -- same as Print_Node_Subtree