From: Bob Duff <duff@adacore.com>
Date: Sat, 11 Dec 2021 12:45:54 +0000 (-0500)
Subject: [Ada] treepr: print value only for discrete types
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b2f150304dc18af2f6b11005a140339f170d6fc2;p=test_jj.git

[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 --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb
index ad2bbf0..4980713 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