public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r12-6348] [Ada] treepr: print value only for discrete types
@ 2022-01-07 16:27 Pierre-Marie de Rodat
0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2022-01-07 16:27 UTC (permalink / raw)
To: gcc-cvs
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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-01-07 16:27 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-01-07 16:27 [gcc r12-6348] [Ada] treepr: print value only for discrete types Pierre-Marie de Rodat
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).