[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

gcc/ada/ChangeLog

 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

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 --
    --------

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);