From b2f150304dc18af2f6b11005a140339f170d6fc2 Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Sat, 11 Dec 2021 07:45:54 -0500 Subject: [PATCH] [Ada] treepr: print value only for discrete types gcc/ada/ * treepr.adb (Print_Node_Ref): Change "not Is_Array_Type" to "Is_Discrete_Type". --- 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 ad2bbf07df8d..4980713a60cd 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 -- 2.47.2