ada: Cannot requeue to a procedure implemented by an entry

Add missing support for RM 9.5.4(5.6/4): the target of a requeue
statement may be a procedure when its name denotes a renaming of
an entry.

gcc/ada/

	* sem_ch6.adb (Analyze_Subprogram_Specification): Do not replace
	the type of the formals with its corresponding record in
	init-procs.
	* sem_ch9.adb (Analyze_Requeue): Add missing support to requeue to
	a procedure that denotes a renaming of an entry.

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index bdfe446d014cac22582f7077746f3f7419119f20..8a7dfef9019f51ff8e251d96c614410c6473e5ee 100644 (file)
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -5373,6 +5373,7 @@ package body Sem_Ch6 is
 
          if Ada_Version >= Ada_2005
            and then not Is_Invariant_Procedure_Or_Body (Designator)
+           and then not Is_Init_Proc (Designator)
          then
             declare
                Formal     : Entity_Id;

diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb
index 365887cbe14fa5113815f84f8fed68ceca209a59..8e6ba4c6b81b495b9056695a1846d2a2eedaaefe 100644 (file)
--- a/gcc/ada/sem_ch9.adb
+++ b/gcc/ada/sem_ch9.adb
@@ -2438,6 +2438,32 @@ package body Sem_Ch9 is
          Entry_Name := Selector_Name (Entry_Name);
       end if;
 
+      --  Ada 2012 (9.5.4(5.6/4): "If the target is a procedure, the name
+      --  shall denote a renaming of an entry or ...". We support this
+      --  language rule replacing the target procedure with the renamed
+      --  entry. Thus, reanalyzing the resulting requeue statement we
+      --  reuse all the Ada 2005 machinery to perform the analysis.
+
+      if Nkind (Entry_Name) in N_Has_Entity then
+         declare
+            Target_E : constant Entity_Id := Entity (Entry_Name);
+
+         begin
+            if Ada_Version >= Ada_2012
+              and then Ekind (Target_E) = E_Procedure
+              and then Convention (Target_E) = Convention_Entry
+              and then Nkind (Original_Node (Parent (Parent (Target_E))))
+                         = N_Subprogram_Renaming_Declaration
+            then
+               Set_Name (N,
+                 New_Copy_Tree
+                   (Name (Original_Node (Parent (Parent (Target_E))))));
+               Analyze_Requeue (N);
+               return;
+            end if;
+         end;
+      end if;
+
       --  If an explicit target object is given then we have to check the
       --  restrictions of 9.5.4(6).