OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] treepr: print value only for discrete types

Browse Source 
gcc/ada/

	* treepr.adb (Print_Node_Ref): Change "not Is_Array_Type" to
	"Is_Discrete_Type".
This commit is contained in:
Bob Duff 2021-12-11 07:45:54 -05:00 committed by Pierre-Marie de Rodat
parent a3c3de386b
commit b2f150304d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/treepr.adb
View File

@ -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