diff options
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index ea64e37a592..55806aa7bb0 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -549,18 +549,18 @@ package body Sem_Ch8 is end if; end Analyze_Expanded_Name; - ---------------------------------------- - -- Analyze_Generic_Function_Renaming -- - ---------------------------------------- + --------------------------------------- + -- Analyze_Generic_Function_Renaming -- + --------------------------------------- procedure Analyze_Generic_Function_Renaming (N : Node_Id) is begin Analyze_Generic_Renaming (N, E_Generic_Function); end Analyze_Generic_Function_Renaming; - --------------------------------------- - -- Analyze_Generic_Package_Renaming -- - --------------------------------------- + -------------------------------------- + -- Analyze_Generic_Package_Renaming -- + -------------------------------------- procedure Analyze_Generic_Package_Renaming (N : Node_Id) is begin @@ -572,9 +572,9 @@ package body Sem_Ch8 is Analyze_Generic_Renaming (N, E_Generic_Package); end Analyze_Generic_Package_Renaming; - ----------------------------------------- - -- Analyze_Generic_Procedure_Renaming -- - ----------------------------------------- + ---------------------------------------- + -- Analyze_Generic_Procedure_Renaming -- + ---------------------------------------- procedure Analyze_Generic_Procedure_Renaming (N : Node_Id) is begin @@ -1941,9 +1941,9 @@ package body Sem_Ch8 is Scope_Stack.Table (Scope_Stack.Last).First_Use_Clause := N; end Chain_Use_Clause; - ---------------------------- - -- Check_Frozen_Renaming -- - ---------------------------- + --------------------------- + -- Check_Frozen_Renaming -- + --------------------------- procedure Check_Frozen_Renaming (N : Node_Id; Subp : Entity_Id) is B_Node : Node_Id; |