diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2025-03-25 16:15:39 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-06-10 09:32:10 +0200 |
| commit | 9b80d0fdced1ac8de7605f9bdd7a0155b05c68b4 (patch) | |
| tree | dea34d3a5d9e2b8466bcb9d3d855d4c5a985cc46 | |
| parent | 5dc946f78e6d0ba73fd33990b3a353f113ecdd64 (diff) | |
| download | gcc-9b80d0fdced1ac8de7605f9bdd7a0155b05c68b4.zip gcc-9b80d0fdced1ac8de7605f9bdd7a0155b05c68b4.tar.gz gcc-9b80d0fdced1ac8de7605f9bdd7a0155b05c68b4.tar.bz2 | |
ada: Generic formal objects have no entry components
AST field Entry_Component doesn't make sense for generic formal objects and was
never used there. Code cleanup; behavior is unaffected.
gcc/ada/ChangeLog:
* gen_il-gen-gen_entities.adb (Formal_Object_Kind): Remove
Entry_Component field.
| -rw-r--r-- | gcc/ada/gen_il-gen-gen_entities.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/gen_il-gen-gen_entities.adb b/gcc/ada/gen_il-gen-gen_entities.adb index 8af261a..5c89597 100644 --- a/gcc/ada/gen_il-gen-gen_entities.adb +++ b/gcc/ada/gen_il-gen-gen_entities.adb @@ -426,9 +426,8 @@ begin -- Gen_IL.Gen.Gen_Entities Sm (Discriminant_Default_Value, Node_Id), Sm (Is_Activation_Record, Flag))); - Ab (Formal_Object_Kind, Object_Kind, - -- Generic formal objects are also objects - (Sm (Entry_Component, Node_Id))); + Ab (Formal_Object_Kind, Object_Kind); + -- Generic formal objects are also objects Cc (E_Generic_In_Out_Parameter, Formal_Object_Kind, -- A generic in out parameter, created by the use of a generic in out |