[gcc r12-6348] [Ada] treepr: print value only for discrete types

[gcc r12-6348] [Ada] treepr: print value only for discrete types

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:b2f150304dc18af2f6b11005a140339f170d6fc2

commit r12-6348-gb2f150304dc18af2f6b11005a140339f170d6fc2
Author: Bob Duff <duff@adacore.com>
Date:   Sat Dec 11 07:45:54 2021 -0500

    [Ada] treepr: print value only for discrete types
    
    gcc/ada/
    
            * treepr.adb (Print_Node_Ref): Change "not Is_Array_Type" to
            "Is_Discrete_Type".

Diff:
---
 gcc/ada/treepr.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb
index ad2bbf07df8..4980713a60c 100644
--- a/gcc/ada/treepr.adb
+++ b/gcc/ada/treepr.adb
@@ -1643,13 +1643,13 @@ package body Treepr is
             end if;
          end if;
 
-         --  If this is an integer-like expression whose value is known, print
-         --  that value.
+         --  If this is a discrete expression whose value is known, print that
+         --  value.
 
          if Nkind (N) in N_Subexpr
            and then Compile_Time_Known_Value (N)
            and then Present (Etype (N))
-           and then not Is_Array_Type (Etype (N))
+           and then Is_Discrete_Type (Etype (N))
          then
             if Is_Entity_Name (N) -- e.g. enumeration literal
               or else Nkind (N) in N_Integer_Literal