[gcc r16-1790] ada: Tweak handling of Parent field in Print_Node

[Marc Poulhies via Gcc-cvs]

https://gcc.gnu.org/g:1666d00bfbfe226948d147b6d561e6294227070e

commit r16-1790-g1666d00bfbfe226948d147b6d561e6294227070e
Author: Ronan Desplanques <desplanq...@adacore.com>
Date:   Thu Apr 17 10:02:01 2025 +0200

    ada: Tweak handling of Parent field in Print_Node
    
    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.

Diff:
---
 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 16e2bc8ade5b..0f723ed25b24 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;