[gcc r13-935] [Ada] Removal of dead code Analyze_Label_Entity

[gcc r13-935] [Ada] Removal of dead code Analyze_Label_Entity

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:2689914091d4c552d775338215a95a6fe10945f9

commit r13-935-g2689914091d4c552d775338215a95a6fe10945f9
Author: Yannick Moy <moy@adacore.com>
Date:   Tue May 10 18:52:59 2022 +0200

    [Ada] Removal of dead code Analyze_Label_Entity
    
    gcc/ada/
    
            * sem_ch5.adb (Analyze_Label_Entity): Remove body.
            * sem_ch5.ads (Analyze_Label_Entity): Remove spec.

Diff:
---
 gcc/ada/sem_ch5.adb | 15 ---------------
 gcc/ada/sem_ch5.ads |  7 -------
 2 files changed, 22 deletions(-)

diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb
index f4301397881..ab9f471d256 100644
--- a/gcc/ada/sem_ch5.adb
+++ b/gcc/ada/sem_ch5.adb
@@ -2112,9 +2112,6 @@ package body Sem_Ch5 is
    --  An implicit label declaration is generated in the innermost enclosing
    --  declarative part. This is done for labels, and block and loop names.
 
-   --  Note: any changes in this routine may need to be reflected in
-   --  Analyze_Label_Entity.
-
    procedure Analyze_Implicit_Label_Declaration (N : Node_Id) is
       Id : constant Node_Id := Defining_Identifier (N);
    begin
@@ -2881,18 +2878,6 @@ package body Sem_Ch5 is
       Kill_Current_Values;
    end Analyze_Label;
 
-   --------------------------
-   -- Analyze_Label_Entity --
-   --------------------------
-
-   procedure Analyze_Label_Entity (E : Entity_Id) is
-   begin
-      Mutate_Ekind        (E, E_Label);
-      Set_Etype           (E, Standard_Void_Type);
-      Set_Enclosing_Scope (E, Current_Scope);
-      Set_Reachable       (E, True);
-   end Analyze_Label_Entity;
-
    ------------------------------------------
    -- Analyze_Loop_Parameter_Specification --
    ------------------------------------------
diff --git a/gcc/ada/sem_ch5.ads b/gcc/ada/sem_ch5.ads
index 22675c27f96..f6f6047e47b 100644
--- a/gcc/ada/sem_ch5.ads
+++ b/gcc/ada/sem_ch5.ads
@@ -45,13 +45,6 @@ package Sem_Ch5 is
    procedure Analyze_Statements                   (L : List_Id);
    procedure Analyze_Target_Name                  (N : Node_Id);
 
-   procedure Analyze_Label_Entity (E : Entity_Id);
-   --  This procedure performs direct analysis of the label entity E. It
-   --  is used when a label is created by the expander without bothering
-   --  to insert an N_Implicit_Label_Declaration in the tree. It also takes
-   --  care of setting Reachable, since labels defined by the expander can
-   --  be assumed to be reachable.
-
    procedure Check_Unreachable_Code (N : Node_Id);
    --  This procedure is called with N being the node for a statement that is
    --  an unconditional transfer of control or an apparent infinite loop. It