[Ada] Debug procedure for printing ancestors

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

gcc/ada/

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

From-SVN: r276826

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4685380588f51d6b9579bda0bb6e4cd5f414abe4..16d900a790ab56cebc4ff7f6d61ac358687ea459 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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.
\ 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 959b990254a0c84c3c0e317ada2dd199f189b079..55ecbdbb07ce21bfd465b4845bbdd8c3fd57be3b 100644 (file)
--- 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 a2992509d06518096e0473d44bf83fcdf39ca34a..a63329b581d88bb433a47716c4783ba358b98243 100644 (file)
--- 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);