[COMMITTED 08/40] ada: Tweak handling of Parent field in Print_Node

[Marc Poulhiès]

From: Ronan Desplanques <desplanq...@adacore.com>

Before this patch, Print_Node failed to honor its Prefix_Char formal
parameter when printing the Parent field. This had no consequences
because Prefix_Char was only used to print members of Nlists, and those
don't have a parent in the tree. But this patch fixes it anyway in
preparation for new debug printing features.

gcc/ada/ChangeLog:

        * treepr.adb (Print_Node): Tweak Parent field printing.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/treepr.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb
index 16e2bc8ade5..0f723ed25b2 100644
--- a/gcc/ada/treepr.adb
+++ b/gcc/ada/treepr.adb
@@ -1144,8 +1144,8 @@ package body Treepr is
       end if;
 
       if not Is_List_Member (N) then
-         Print_Str (Prefix_Str);
-         Print_Str (" Parent = ");
+         Print_Str (Prefix);
+         Print_Str ("Parent = ");
          Print_Node_Ref (Parent (N));
          Print_Eol;
       end if;
-- 
2.43.0