[COMMITTED 30/30] ada: Generic formal objects have no entry components

[Marc Poulhiès]

From: Piotr Trojanek <troja...@adacore.com>

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.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 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 8af261ac036..5c895977d40 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
-- 
2.43.0