From a871b0aa6234573b8e7ec3d876c31f60e45e700f Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Thu, 10 Oct 2019 15:24:06 +0000 Subject: [PATCH] [Ada] Debug procedure for printing ancestors 2019-10-10 Bob Duff gcc/ada/ * treepr.ads, treepr.adb (ppar): New procedure. From-SVN: r276826 --- gcc/ada/ChangeLog | 6 +----- gcc/ada/treepr.adb | 8 ++++++++ gcc/ada/treepr.ads | 4 ++++ 3 files changed, 13 insertions(+), 5 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4685380..16d900a 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 959b990..55ecbdb 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 a299250..a63329b 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); -- 2.7.4