ada: Crash on loop in dispatching conditional entry call

gcc/ada/

	* exp_ch9.adb
	(Expand_N_Conditional_Entry_Call): Factorize code to avoid
	duplicating subtrees; required to avoid problems when the copied
	code has implicit labels.
	* sem_util.ads (New_Copy_Separate_List): Removed.
	(New_Copy_Separate_Tree): Removed.
	* sem_util.adb (New_Copy_Separate_List): Removed.
	(New_Copy_Separate_Tree): Removed.

1 files changed, 0 insertions, 10 deletions

diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index 6f5b20e..b5bcd26 100644
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -2623,16 +2623,6 @@ package Sem_Util is
    --  below. As for New_Copy_Tree, it is illegal to attempt to copy extended
    --  nodes (entities) either directly or indirectly using this function.
 
-   function New_Copy_Separate_List (List : List_Id) return List_Id;
-   --  Copy recursively a list of nodes using New_Copy_Separate_Tree
-
-   function New_Copy_Separate_Tree (Source : Node_Id) return Node_Id;
-   --  Perform a deep copy of the subtree rooted at Source using New_Copy_Tree
-   --  replacing entities of local declarations by new entities. This behavior
-   --  is required by the backend to ensure entities uniqueness when a copy of
-   --  a subtree is attached to the tree. The new entities keep their original
-   --  names to facilitate debugging the tree copy.
-
    function New_Copy_Tree
      (Source    : Node_Id;
       Map       : Elist_Id   := No_Elist;