diff options
author | Richard Kenner <kenner@adacore.com> | 2021-08-05 17:05:40 -0400 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-01 06:13:35 +0000 |
commit | 7916838b6674e7d0ed0c488d22e89e2b679f1292 (patch) | |
tree | 59ab625e14af8b4012868c45b7a67e1e44aefc2c | |
parent | cafd1c1a71325c0e9dc6a6862fdd5dcd7248fbb6 (diff) | |
download | gcc-7916838b6674e7d0ed0c488d22e89e2b679f1292.zip gcc-7916838b6674e7d0ed0c488d22e89e2b679f1292.tar.gz gcc-7916838b6674e7d0ed0c488d22e89e2b679f1292.tar.bz2 |
[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.
-rw-r--r-- | gcc/ada/gen_il-gen-gen_nodes.adb | 10 | ||||
-rw-r--r-- | gcc/ada/gen_il-types.ads | 1 |
2 files changed, 11 insertions, 0 deletions
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, |