From 7916838b6674e7d0ed0c488d22e89e2b679f1292 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Thu, 5 Aug 2021 17:05:40 -0400 Subject: [PATCH] [Ada] Add N_Entity_Name gcc/ada/ * gen_il-gen-gen_nodes.adb (N_Entity_Name): Add. * gen_il-types.ads (N_Entity_Name): Likewise. --- gcc/ada/gen_il-gen-gen_nodes.adb | 10 ++++++++++ gcc/ada/gen_il-types.ads | 1 + 2 files changed, 11 insertions(+) diff --git a/gcc/ada/gen_il-gen-gen_nodes.adb b/gcc/ada/gen_il-gen-gen_nodes.adb index 43d77f2..32cc89a 100644 --- a/gcc/ada/gen_il-gen-gen_nodes.adb +++ b/gcc/ada/gen_il-gen-gen_nodes.adb @@ -1662,4 +1662,14 @@ begin -- Gen_IL.Gen.Gen_Nodes N_Has_Entity, N_Subtype_Indication)); -- Nodes that can be an index of an array + + Union (N_Entity_Name, + Children => + (N_Expanded_Name, + N_Identifier, + N_Operator_Symbol)); + -- Nodes that are definitely representing an entity. + -- Some N_Attribute_Reference nodes may also represent an entity. See + -- Is_Entity_Name. + end Gen_IL.Gen.Gen_Nodes; diff --git a/gcc/ada/gen_il-types.ads b/gcc/ada/gen_il-types.ads index c8f87f9..4aadf99 100644 --- a/gcc/ada/gen_il-types.ads +++ b/gcc/ada/gen_il-types.ads @@ -84,6 +84,7 @@ package Gen_IL.Types is N_Delay_Statement, N_Direct_Name, N_Entity, + N_Entity_Name, N_Formal_Subprogram_Declaration, N_Generic_Declaration, N_Generic_Instantiation, -- 2.7.4