TeamHeptaMirrors/gcc
1
0
Fork 1
mirror of https://github.com/gcc-mirror/gcc.git synced 2026-05-06 14:59:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Debug procedure for printing ancestors

Browse Source 
2019-10-10  Bob Duff  <duff@adacore.com>

gcc/ada/

	* treepr.ads, treepr.adb (ppar): New procedure.

From-SVN: r276826
This commit is contained in:
Bob Duff
2019-10-10 15:24:06 +00:00
committed by Pierre-Marie de Rodat
parent f18344b78d
commit a871b0aa62
3 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@@ -1,7 +1,3 @@
2019-10-10 Bob Duff <duff@adacore.com>
* sem_aggr.adb (Resolve_Aggregate): Add missing cases in the
Others_Allowed => True case -- N_Case_Expression_Alternative and
N_If_Expression. Use Nkind_In.
* atree.adb, atree.ads, sinfo.adb, sinfo.ads (Nkind_In): New
16-parameter version.
* treepr.ads, treepr.adb (ppar): New procedure.

8
gcc/ada/treepr.adb
View File

@@ -242,6 +242,14 @@ package body Treepr is
function par (N : Union_Id) return Node_Or_Entity_Id renames p;
procedure ppar (N : Union_Id) is
begin
if N /= Empty_List_Or_Node then
pp (N);
ppar (Union_Id (p (N)));
end if;
end ppar;
--------
-- pe --
--------

4
gcc/ada/treepr.ads
View File

@@ -82,6 +82,10 @@ package Treepr is
-- the definition of Union_Id. Historically this was only for printing
-- nodes, hence the name.
procedure ppar (N : Union_Id);
pragma Export (Ada, ppar);
-- Print the node, its parent, its parent's parent, and so on
procedure pt (N : Union_Id);
procedure ppp (N : Union_Id);
pragma Export (Ada, pt);