From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 25 Mar 2025 15:15:39 +0000 (+0100)
Subject: ada: Generic formal objects have no entry components
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9b80d0fdced1ac8de7605f9bdd7a0155b05c68b4;p=thirdparty%2Fgcc.git

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 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