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 --git a/gcc/ada/gen_il-gen-gen_entities.adb b/gcc/ada/gen_il-gen-gen_entities.adb
index 8af261ac03648f31ab90e23605d994e827229e04..5c895977d405ad04456f62cca50cc04ed6efbf84 100644 (file)
--- 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