From: pmderodat Date: Thu, 10 Oct 2019 15:24:06 +0000 (+0000) Subject: [Ada] Debug procedure for printing ancestors X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b78dcb3693a3980c250a7bc83b670f928041bdee;p=thirdparty%2Fgcc.git [Ada] Debug procedure for printing ancestors 2019-10-10 Bob Duff gcc/ada/ * treepr.ads, treepr.adb (ppar): New procedure. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@276826 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4685380588f5..16d900a790ab 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,7 +1,3 @@ 2019-10-10 Bob Duff - * 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. \ No newline at end of file + * treepr.ads, treepr.adb (ppar): New procedure. \ No newline at end of file diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index 959b990254a0..55ecbdbb07ce 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -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 -- -------- diff --git a/gcc/ada/treepr.ads b/gcc/ada/treepr.ads index a2992509d065..a63329b581d8 100644 --- a/gcc/ada/treepr.ads +++ b/gcc/ada/treepr.ads @@ -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);