https://gcc.gnu.org/g:9b80d0fdced1ac8de7605f9bdd7a0155b05c68b4
commit r16-1390-g9b80d0fdced1ac8de7605f9bdd7a0155b05c68b4
Author: Piotr Trojanek <troja...@adacore.com>
Date: Tue Mar 25 16:15:39 2025 +0100
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.
Diff:
---
gcc/ada/gen_il-gen-gen_entities.adb | 5 ++---
1 file 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 8af261ac0364..5c895977d405 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
