[Ada] Fix inconstent subprogram body headers

These are GNAT style violations detected with a trivial Libadalang checker.

2018-05-21  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

	* ada_get_targ.adb: Fix subprogram body headers.
	* adabkend.adb: Likewise.
	* checks.adb: Likewise.
	* exp_ch3.adb: Likewise.
	* exp_ch5.adb: Likewise.
	* exp_ch9.adb: Likewise.
	* exp_dist.adb: Likewise.
	* exp_tss.adb: Likewise.
	* inline.adb: Likewise.
	* lib-writ.adb: Likewise.
	* lib-xref-spark_specific.adb: Likewise.
	* libgnarl/s-osinte__darwin.adb: Likewise.
	* libgnarl/s-stusta.adb: Likewise.
	* libgnarl/s-taprop__solaris.adb: Likewise.
	* libgnarl/s-tposen.adb: Likewise.
	* libgnarl/s-vxwext__kernel-smp.adb: Likewise.
	* libgnarl/s-vxwext__kernel.adb: Likewise.
	* libgnat/a-btgbso.adb: Likewise.
	* libgnat/a-cfdlli.adb: Likewise.
	* libgnat/a-cfhama.adb: Likewise.
	* libgnat/a-cfinve.adb: Likewise.
	* libgnat/a-cimutr.adb: Likewise.
	* libgnat/a-coboho.adb: Likewise.
	* libgnat/a-cofove.adb: Likewise.
	* libgnat/a-cofuve.adb: Likewise.
	* libgnat/a-comutr.adb: Likewise.
	* libgnat/a-exexda.adb: Likewise.
	* libgnat/a-tags.adb: Likewise.
	* libgnat/a-tideau.adb: Likewise.
	* libgnat/a-wtdeau.adb: Likewise.
	* libgnat/a-ztdeau.adb: Likewise.
	* libgnat/g-alleve.adb: Likewise.
	* libgnat/s-excdeb.adb: Likewise.
	* libgnat/s-parint.adb: Likewise.
	* libgnat/s-shasto.adb: Likewise.
	* libgnat/s-traceb__hpux.adb: Likewise.
	* prepcomp.adb: Likewise.
	* sem_ch4.adb: Likewise.
	* sem_ch6.adb: Likewise.
	* sem_dist.adb: Likewise.
	* sem_prag.adb: Likewise.
	* sem_util.adb: Likewise.
	* sinfo.adb: Likewise.
	* switch.adb: Likewise.

From-SVN: r260442

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a929376012eec8b55dd85407dad9f022dcfa525d..33500f334edc555439d0029af48448877f20e65f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,50 @@
+2018-04-04  Piotr Trojanek  <trojanek@adacore.com>
+
+       * ada_get_targ.adb: Fix subprogram body headers.
+       * adabkend.adb: Likewise.
+       * checks.adb: Likewise.
+       * exp_ch3.adb: Likewise.
+       * exp_ch5.adb: Likewise.
+       * exp_ch9.adb: Likewise.
+       * exp_dist.adb: Likewise.
+       * exp_tss.adb: Likewise.
+       * inline.adb: Likewise.
+       * lib-writ.adb: Likewise.
+       * lib-xref-spark_specific.adb: Likewise.
+       * libgnarl/s-osinte__darwin.adb: Likewise.
+       * libgnarl/s-stusta.adb: Likewise.
+       * libgnarl/s-taprop__solaris.adb: Likewise.
+       * libgnarl/s-tposen.adb: Likewise.
+       * libgnarl/s-vxwext__kernel-smp.adb: Likewise.
+       * libgnarl/s-vxwext__kernel.adb: Likewise.
+       * libgnat/a-btgbso.adb: Likewise.
+       * libgnat/a-cfdlli.adb: Likewise.
+       * libgnat/a-cfhama.adb: Likewise.
+       * libgnat/a-cfinve.adb: Likewise.
+       * libgnat/a-cimutr.adb: Likewise.
+       * libgnat/a-coboho.adb: Likewise.
+       * libgnat/a-cofove.adb: Likewise.
+       * libgnat/a-cofuve.adb: Likewise.
+       * libgnat/a-comutr.adb: Likewise.
+       * libgnat/a-exexda.adb: Likewise.
+       * libgnat/a-tags.adb: Likewise.
+       * libgnat/a-tideau.adb: Likewise.
+       * libgnat/a-wtdeau.adb: Likewise.
+       * libgnat/a-ztdeau.adb: Likewise.
+       * libgnat/g-alleve.adb: Likewise.
+       * libgnat/s-excdeb.adb: Likewise.
+       * libgnat/s-parint.adb: Likewise.
+       * libgnat/s-shasto.adb: Likewise.
+       * libgnat/s-traceb__hpux.adb: Likewise.
+       * prepcomp.adb: Likewise.
+       * sem_ch4.adb: Likewise.
+       * sem_ch6.adb: Likewise.
+       * sem_dist.adb: Likewise.
+       * sem_prag.adb: Likewise.
+       * sem_util.adb: Likewise.
+       * sinfo.adb: Likewise.
+       * switch.adb: Likewise.
+
 2018-05-04  John Marino  <gnugcc@marino.st>
 
        PR ada/85635

diff --git a/gcc/ada/ada_get_targ.adb b/gcc/ada/ada_get_targ.adb
index 398a4666169b8044a0308330dd908f6d191c2f91..3bf29b75b46bf40658353d9183ba085cffaa8c18 100644 (file)
--- a/gcc/ada/ada_get_targ.adb
+++ b/gcc/ada/ada_get_targ.adb
@@ -55,9 +55,9 @@ package body Get_Targ is
       return 8;
    end Get_Char_Size;
 
-   -----------------
-   -- Get_Wchar_T --
-   -----------------
+   ----------------------
+   -- Get_Wchar_T_Size --
+   ----------------------
 
    function Get_Wchar_T_Size return Pos is
    begin

diff --git a/gcc/ada/adabkend.adb b/gcc/ada/adabkend.adb
index 971c13191aef8bf87761eae6bfdbed57d5a4f58b..738854f1b292bfddb1784f789d98e4bd3a6d2745 100644 (file)
--- a/gcc/ada/adabkend.adb
+++ b/gcc/ada/adabkend.adb
@@ -67,9 +67,9 @@ package body Adabkend is
       Driver (Lib.Cunit (Types.Main_Unit));
    end Call_Back_End;
 
-   ------------------------
-   -- Scan_Compiler_Args --
-   ------------------------
+   -----------------------------
+   -- Scan_Compiler_Arguments --
+   -----------------------------
 
    procedure Scan_Compiler_Arguments is
       Output_File_Name_Seen : Boolean := False;

diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb
index a283fabd646264692fdfd7e84005dd105f49bd19..d88caad49a7ae1062177a01d38ce686ecd793b3c 100644 (file)
--- a/gcc/ada/checks.adb
+++ b/gcc/ada/checks.adb
@@ -3747,9 +3747,9 @@ package body Checks is
 
       function Aggregate_Discriminant_Val (Disc : Entity_Id) return Node_Id;
 
-      ----------------------------------
-      -- Aggregate_Discriminant_Value --
-      ----------------------------------
+      --------------------------------
+      -- Aggregate_Discriminant_Val --
+      --------------------------------
 
       function Aggregate_Discriminant_Val (Disc : Entity_Id) return Node_Id is
          Assoc : Node_Id;

diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index 89ff6581edef3099b4ad12b447000ade57edd22f..78181730a3a5092afdc394f36bca01951c20f133 100644 (file)
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -8775,9 +8775,9 @@ package body Exp_Ch3 is
       end loop;
    end Init_Secondary_Tags;
 
-   ------------------------
-   -- Is_User_Defined_Eq --
-   ------------------------
+   ------------------------------
+   -- Is_User_Defined_Equality --
+   ------------------------------
 
    function Is_User_Defined_Equality (Prim : Node_Id) return Boolean is
    begin

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index 4552a3b0c6fa98679839c4b85b12f521b5c63e11..3407e8556c4471187cbe45842da616937f520de4 100644 (file)
--- a/gcc/ada/exp_ch5.adb
+++ b/gcc/ada/exp_ch5.adb
@@ -164,7 +164,7 @@ package body Exp_Ch5 is
    --  is the original Assignment node.
 
    --------------------------------------
-   -- Build_Formal_Container_iteration --
+   -- Build_Formal_Container_Iteration --
    --------------------------------------
 
    procedure Build_Formal_Container_Iteration

diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index a3234fbb94a9ada6b70c2a2fb966d2fa0b6d7044..9c2a16506114ce386868cb5caa93e96b7dc0a9af 100644 (file)
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -13300,9 +13300,9 @@ package body Exp_Ch9 is
          Insert_Node := Decl;
       end Add;
 
-      --------------------------
-      -- Replace_Discriminant --
-      --------------------------
+      -------------------
+      -- Replace_Bound --
+      -------------------
 
       function Replace_Bound (Bound : Node_Id) return Node_Id is
       begin

diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index 99d551e619ec63446c46552c02582d9665c6e625..c354641b2533fa238ed71e45117d6cf541d2cad8 100644 (file)
--- a/gcc/ada/exp_dist.adb
+++ b/gcc/ada/exp_dist.adb
@@ -933,9 +933,9 @@ package body Exp_Dist is
       procedure Visit_Nested_Pkg (Nested_Pkg_Decl : Node_Id);
       --  Recurse for the given nested package declaration
 
-      -----------------------
-      -- Visit_Nested_Spec --
-      -----------------------
+      ----------------------
+      -- Visit_Nested_Pkg --
+      ----------------------
 
       procedure Visit_Nested_Pkg (Nested_Pkg_Decl : Node_Id) is
          Nested_Pkg_Spec : constant Node_Id := Specification (Nested_Pkg_Decl);
@@ -9219,9 +9219,9 @@ package body Exp_Dist is
                 Idx));
          end Build_Get_Aggregate_Element;
 
-         -------------------------
-         -- Build_Reposiroty_Id --
-         -------------------------
+         ----------------------------------
+         -- Build_Name_And_Repository_Id --
+         ----------------------------------
 
          procedure Build_Name_And_Repository_Id
            (E           : Entity_Id;

diff --git a/gcc/ada/exp_tss.adb b/gcc/ada/exp_tss.adb
index fd4a84f5e2962299f808a6f08ebd1b19c1bba8bb..b6ac5e1613c19a659ba618f64b29d027dd09c6f4 100644 (file)
--- a/gcc/ada/exp_tss.adb
+++ b/gcc/ada/exp_tss.adb
@@ -173,9 +173,9 @@ package body Exp_Tss is
       return Proc;
    end Find_Inherited_TSS;
 
-   -----------------------
-   -- Get_TSS_Name_Type --
-   -----------------------
+   ------------------
+   -- Get_TSS_Name --
+   ------------------
 
    function Get_TSS_Name (E : Entity_Id) return TSS_Name_Type is
       C1 : Character;

diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index 5d4f0540e0d2c315a230d8f1ed6deef268321307..e421c55eabd78c47a218ef3e97b413bfe16755bc 100644 (file)
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -1669,9 +1669,9 @@ package body Inline is
          --  rewritten (the analysis of the non-inlined body will handle these
          --  pragmas).  A new internal name is associated with Body_To_Inline.
 
-         -----------------------------
-         -- Generate_Body_To_Inline --
-         -----------------------------
+         ------------------------------
+         -- Generate_Subprogram_Body --
+         ------------------------------
 
          procedure Generate_Subprogram_Body
            (N              : Node_Id;

diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb
index aa64b12f58bb55f5bc81f36e9867445b4792bb1d..b861bad6a99fce04b96774dc713cfeff313a68b4 100644 (file)
--- a/gcc/ada/lib-writ.adb
+++ b/gcc/ada/lib-writ.adb
@@ -844,9 +844,9 @@ package body Lib.Writ is
          --  Write source file name Nam and ALI file name for unit index Idx.
          --  Possibly change Nam to lowercase (generating a new file name).
 
-         --------------------------
-         -- Write_With_File_Name --
-         --------------------------
+         ---------------------------
+         -- Write_With_File_Names --
+         ---------------------------
 
          procedure Write_With_File_Names
            (Nam : in out File_Name_Type;

diff --git a/gcc/ada/lib-xref-spark_specific.adb b/gcc/ada/lib-xref-spark_specific.adb
index f5c84c8b91263b651a211daca5279e14ce1bbba4..834ddc0ae66a0a384d9fd3a8f8c48f942845f663 100644 (file)
--- a/gcc/ada/lib-xref-spark_specific.adb
+++ b/gcc/ada/lib-xref-spark_specific.adb
@@ -168,9 +168,9 @@ package body SPARK_Specific is
       end loop;
    end Iterate_SPARK_Xrefs;
 
-   -------------------------------------
-   -- Enclosing_Subprogram_Or_Package --
-   -------------------------------------
+   ---------------------------------------------
+   -- Enclosing_Subprogram_Or_Library_Package --
+   ---------------------------------------------
 
    function Enclosing_Subprogram_Or_Library_Package
      (N : Node_Id) return Entity_Id

diff --git a/gcc/ada/libgnarl/s-osinte__darwin.adb b/gcc/ada/libgnarl/s-osinte__darwin.adb
index 7c9105b9ed9b91d821c28b0a391c435ccf001e5c..fc159b2b6f40553d53b2ebbc378e106080ba1840 100644 (file)
--- a/gcc/ada/libgnarl/s-osinte__darwin.adb
+++ b/gcc/ada/libgnarl/s-osinte__darwin.adb
@@ -180,9 +180,9 @@ package body System.OS_Interface is
       null;
    end pthread_init;
 
-   ----------------
-   -- Stack_Base --
-   ----------------
+   --------------------
+   -- Get_Stack_Base --
+   --------------------
 
    function Get_Stack_Base (thread : pthread_t) return Address is
       pragma Unreferenced (thread);

diff --git a/gcc/ada/libgnarl/s-stusta.adb b/gcc/ada/libgnarl/s-stusta.adb
index cfba9648c2dceed44e0eb5790d771443edc27382..5f694da699a2e8cade0eb79dafa843e4f877c501 100644 (file)
--- a/gcc/ada/libgnarl/s-stusta.adb
+++ b/gcc/ada/libgnarl/s-stusta.adb
@@ -158,9 +158,9 @@ package body System.Stack_Usage.Tasking is
 
    end Report_Impl;
 
-   ---------------------
-   -- Report_All_Task --
-   ---------------------
+   ----------------------
+   -- Report_All_Tasks --
+   ----------------------
 
    procedure Report_All_Tasks is
    begin

diff --git a/gcc/ada/libgnarl/s-taprop__solaris.adb b/gcc/ada/libgnarl/s-taprop__solaris.adb
index 2bb5d6506808c14ab0bc3061c8f6f8065b3b5e8c..670ae94971c7a6d0c5251cc19e541ec7a3b2c4a3 100644 (file)
--- a/gcc/ada/libgnarl/s-taprop__solaris.adb
+++ b/gcc/ada/libgnarl/s-taprop__solaris.adb
@@ -1623,9 +1623,9 @@ package body System.Task_Primitives.Operations is
       return True;
    end Check_Unlock;
 
-   --------------------
-   -- Check_Finalize --
-   --------------------
+   -------------------------
+   -- Check_Finalize_Lock --
+   -------------------------
 
    function Check_Finalize_Lock (L : Lock_Ptr) return Boolean is
       Self_ID : constant Task_Id := Self;

diff --git a/gcc/ada/libgnarl/s-tposen.adb b/gcc/ada/libgnarl/s-tposen.adb
index 18317b66f0464ab2d83b63ee1f75e000019bf306..89319fa767f21a77f41ee84f437f85844c4d15ce 100644 (file)
--- a/gcc/ada/libgnarl/s-tposen.adb
+++ b/gcc/ada/libgnarl/s-tposen.adb
@@ -319,9 +319,9 @@ package body System.Tasking.Protected_Objects.Single_Entry is
          Send_Program_Error (Entry_Call);
    end PO_Do_Or_Queue;
 
-   ----------------------------
-   -- Protected_Single_Count --
-   ----------------------------
+   ---------------------------
+   -- Protected_Count_Entry --
+   ---------------------------
 
    function Protected_Count_Entry (Object : Protection_Entry) return Natural is
    begin

diff --git a/gcc/ada/libgnarl/s-vxwext__kernel-smp.adb b/gcc/ada/libgnarl/s-vxwext__kernel-smp.adb
index 078374a8ca7de92ffc14dffcfd768b0958951653..c3bba44242a5c10a226547b89c3bfd81cb4a84c4 100644 (file)
--- a/gcc/ada/libgnarl/s-vxwext__kernel-smp.adb
+++ b/gcc/ada/libgnarl/s-vxwext__kernel-smp.adb
@@ -88,9 +88,9 @@ package body System.VxWorks.Ext is
       return Set_Affinity (tid, CPU_Set);
    end taskMaskAffinitySet;
 
-   --------------
-   -- taskCont --
-   --------------
+   ---------------
+   -- Task_Cont --
+   ---------------
 
    function Task_Cont (tid : t_id) return int is
       function taskCont (tid : t_id) return int;
@@ -99,9 +99,9 @@ package body System.VxWorks.Ext is
       return taskCont (tid);
    end Task_Cont;
 
-   --------------
-   -- taskStop --
-   --------------
+   ---------------
+   -- Task_Stop --
+   ---------------
 
    function Task_Stop (tid : t_id) return int is
       function taskStop (tid : t_id) return int;

diff --git a/gcc/ada/libgnarl/s-vxwext__kernel.adb b/gcc/ada/libgnarl/s-vxwext__kernel.adb
index 91c6ae66325b19d2cff2e0731fc4063bee172dc7..b5b86d4cce40cfc7b7de41e21052e2441f25b047 100644 (file)
--- a/gcc/ada/libgnarl/s-vxwext__kernel.adb
+++ b/gcc/ada/libgnarl/s-vxwext__kernel.adb
@@ -85,9 +85,9 @@ package body System.VxWorks.Ext is
       return ERROR;
    end taskMaskAffinitySet;
 
-   --------------
-   -- taskCont --
-   --------------
+   ---------------
+   -- Task_Cont --
+   ---------------
 
    function Task_Cont (tid : t_id) return int is
       function taskCont (tid : t_id) return int;
@@ -96,9 +96,9 @@ package body System.VxWorks.Ext is
       return taskCont (tid);
    end Task_Cont;
 
-   --------------
-   -- taskStop --
-   --------------
+   ---------------
+   -- Task_Stop --
+   ---------------
 
    function Task_Stop (tid : t_id) return int is
       function taskStop (tid : t_id) return int;

diff --git a/gcc/ada/libgnat/a-btgbso.adb b/gcc/ada/libgnat/a-btgbso.adb
index f1208cd21844a20c473af89b9ae6f1dc44961dac..f1f7c4c30cc06866528ce9f46f5569a186dc2632 100644 (file)
--- a/gcc/ada/libgnat/a-btgbso.adb
+++ b/gcc/ada/libgnat/a-btgbso.adb
@@ -52,9 +52,9 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Set_Operations is
       end return;
    end Copy;
 
-   ----------------
-   -- Difference --
-   ----------------
+   --------------------
+   -- Set_Difference --
+   --------------------
 
    procedure Set_Difference (Target : in out Set_Type; Source : Set_Type) is
       Tgt, Src : Count_Type;
@@ -197,9 +197,9 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Set_Operations is
       end return;
    end Set_Difference;
 
-   ------------------
-   -- Intersection --
-   ------------------
+   ----------------------
+   -- Set_Intersection --
+   ----------------------
 
    procedure Set_Intersection
      (Target : in out Set_Type;
@@ -328,9 +328,9 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Set_Operations is
       end return;
    end Set_Intersection;
 
-   ---------------
-   -- Is_Subset --
-   ---------------
+   ----------------
+   -- Set_Subset --
+   ----------------
 
    function Set_Subset
      (Subset : Set_Type;
@@ -384,9 +384,9 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Set_Operations is
       end;
    end Set_Subset;
 
-   -------------
-   -- Overlap --
-   -------------
+   -----------------
+   -- Set_Overlap --
+   -----------------
 
    function Set_Overlap (Left, Right : Set_Type) return Boolean is
    begin
@@ -424,9 +424,9 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Set_Operations is
       end;
    end Set_Overlap;
 
-   --------------------------
-   -- Symmetric_Difference --
-   --------------------------
+   ------------------------------
+   -- Set_Symmetric_Difference --
+   ------------------------------
 
    procedure Set_Symmetric_Difference
      (Target : in out Set_Type;
@@ -600,9 +600,9 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Set_Operations is
       end return;
    end Set_Symmetric_Difference;
 
-   -----------
-   -- Union --
-   -----------
+   ---------------
+   -- Set_Union --
+   ---------------
 
    procedure Set_Union (Target : in out Set_Type; Source : Set_Type) is
       Hint : Count_Type := 0;

diff --git a/gcc/ada/libgnat/a-cfdlli.adb b/gcc/ada/libgnat/a-cfdlli.adb
index 7bcbda1280792be55a78aeaf6b7aeb963ac14be9..aca80f910f6c817982aca5d7fae4c6ee0fc31c39 100644 (file)
--- a/gcc/ada/libgnat/a-cfdlli.adb
+++ b/gcc/ada/libgnat/a-cfdlli.adb
@@ -565,7 +565,7 @@ is
       end M_Elements_Reversed;
 
       ------------------------
-      -- M_Elements_Swapted --
+      -- M_Elements_Swapped --
       ------------------------
 
       function M_Elements_Swapped

diff --git a/gcc/ada/libgnat/a-cfhama.adb b/gcc/ada/libgnat/a-cfhama.adb
index 9767a31233cb5da403f79efa021cf34079ad24b4..9b22434ed4b473d3a944fa4684f11754613211ad 100644 (file)
--- a/gcc/ada/libgnat/a-cfhama.adb
+++ b/gcc/ada/libgnat/a-cfhama.adb
@@ -429,7 +429,7 @@ is
       procedure Lift_Abstraction_Level (Container : Map) is null;
 
       -----------------------
-      -- Mapping_preserved --
+      -- Mapping_Preserved --
       -----------------------
 
       function Mapping_Preserved

diff --git a/gcc/ada/libgnat/a-cfinve.adb b/gcc/ada/libgnat/a-cfinve.adb
index e92ea806535b8d1fda99e28f8bbfb6ea04a87aff..72138d61af771d929b63c16efe5727ded0f322df 100644 (file)
--- a/gcc/ada/libgnat/a-cfinve.adb
+++ b/gcc/ada/libgnat/a-cfinve.adb
@@ -426,9 +426,9 @@ is
       end;
    end Element;
 
-   --------------
-   -- Elements --
-   --------------
+   -----------
+   -- Elems --
+   -----------
 
    function Elems (Container : in out Vector) return Maximal_Array_Ptr is
    begin
@@ -590,7 +590,7 @@ is
       end M_Elements_Reversed;
 
       ------------------------
-      -- M_Elements_Swapted --
+      -- M_Elements_Swapped --
       ------------------------
 
       function M_Elements_Swapped

diff --git a/gcc/ada/libgnat/a-cimutr.adb b/gcc/ada/libgnat/a-cimutr.adb
index a142281e185b44155869ff93a1e70f9a512d1fab..b8f4281c4e8a937e6589eb05095dea1e681b7231 100644 (file)
--- a/gcc/ada/libgnat/a-cimutr.adb
+++ b/gcc/ada/libgnat/a-cimutr.adb
@@ -1722,7 +1722,7 @@ package body Ada.Containers.Indefinite_Multiway_Trees is
    end Parent;
 
    -------------------
-   -- Prepent_Child --
+   -- Prepend_Child --
    -------------------
 
    procedure Prepend_Child

diff --git a/gcc/ada/libgnat/a-coboho.adb b/gcc/ada/libgnat/a-coboho.adb
index 385793808b8c7a37644e5c9db99a47c5136c48cb..d72ed3c75250c52db28e7d3b58b3743075c56e51 100644 (file)
--- a/gcc/ada/libgnat/a-coboho.adb
+++ b/gcc/ada/libgnat/a-coboho.adb
@@ -64,9 +64,9 @@ package body Ada.Containers.Bounded_Holders is
       return Get (Left) = Get (Right);
    end "=";
 
-   -------------
-   -- Element --
-   -------------
+   ---------
+   -- Get --
+   ---------
 
    function Get (Container : Holder) return Element_Type is
    begin

diff --git a/gcc/ada/libgnat/a-cofove.adb b/gcc/ada/libgnat/a-cofove.adb
index ee90cca004f769bc0d32c8c85d4e3ddec0a5563f..34633f425c075b1ba0d582aec8c7d80eef15c4bd 100644 (file)
--- a/gcc/ada/libgnat/a-cofove.adb
+++ b/gcc/ada/libgnat/a-cofove.adb
@@ -422,9 +422,9 @@ is
       end;
    end Element;
 
-   --------------
-   -- Elements --
-   --------------
+   -----------
+   -- Elems --
+   -----------
 
    function Elems (Container : in out Vector) return Maximal_Array_Ptr is
    begin
@@ -585,7 +585,7 @@ is
       end M_Elements_Reversed;
 
       ------------------------
-      -- M_Elements_Swapted --
+      -- M_Elements_Swapped --
       ------------------------
 
       function M_Elements_Swapped

diff --git a/gcc/ada/libgnat/a-cofuve.adb b/gcc/ada/libgnat/a-cofuve.adb
index 68afa0366e37259845c45f5c57812e78a7b9696f..d7979181562185b0f8aae6757ee60394ee9e1cb5 100644 (file)
--- a/gcc/ada/libgnat/a-cofuve.adb
+++ b/gcc/ada/libgnat/a-cofuve.adb
@@ -119,7 +119,7 @@ package body Ada.Containers.Functional_Vectors with SPARK_Mode => Off is
    end Contains;
 
    ------------------
-   -- Range_Except --
+   -- Equal_Except --
    ------------------
 
    function Equal_Except

diff --git a/gcc/ada/libgnat/a-comutr.adb b/gcc/ada/libgnat/a-comutr.adb
index 8d363683ac4bc82c37bf233166da498ff8fd12f9..2eb8d63c0b26be8e6a6a48a56d9e0d8355b74e1b 100644 (file)
--- a/gcc/ada/libgnat/a-comutr.adb
+++ b/gcc/ada/libgnat/a-comutr.adb
@@ -1725,7 +1725,7 @@ package body Ada.Containers.Multiway_Trees is
    end Parent;
 
    -------------------
-   -- Prepent_Child --
+   -- Prepend_Child --
    -------------------
 
    procedure Prepend_Child

diff --git a/gcc/ada/libgnat/a-exexda.adb b/gcc/ada/libgnat/a-exexda.adb
index 9da21c01610693d36d74ca6d939b9cf0fa1480dc..93896bd39679622ae12a7bc79e5666787487afc4 100644 (file)
--- a/gcc/ada/libgnat/a-exexda.adb
+++ b/gcc/ada/libgnat/a-exexda.adb
@@ -489,9 +489,9 @@ package body Exception_Data is
       Append_Info_NL (Info, Ptr);
    end Append_Info_Untailored_Exception_Traceback;
 
-   -------------------------------------------
-   -- Basic_Exception_Information_Maxlength --
-   -------------------------------------------
+   ------------------------------------
+   -- Basic_Exception_Info_Maxlength --
+   ------------------------------------
 
    function Basic_Exception_Info_Maxlength
      (X : Exception_Occurrence) return Natural

diff --git a/gcc/ada/libgnat/a-tags.adb b/gcc/ada/libgnat/a-tags.adb
index 3d7c7e5472a68b9576689bd8da30453d966bba6b..f63a1fcf063c549da21708398f4995e636dc3693 100644 (file)
--- a/gcc/ada/libgnat/a-tags.adb
+++ b/gcc/ada/libgnat/a-tags.adb
@@ -1028,9 +1028,9 @@ package body Ada.Tags is
       SSD (T).SSD_Table (Position).Index := Value;
    end Set_Entry_Index;
 
-   -----------------------
-   -- Set_Offset_To_Top --
-   -----------------------
+   -------------------------------
+   -- Set_Dynamic_Offset_To_Top --
+   -------------------------------
 
    procedure Set_Dynamic_Offset_To_Top
      (This         : System.Address;

diff --git a/gcc/ada/libgnat/a-tideau.adb b/gcc/ada/libgnat/a-tideau.adb
index a434c5b337e1cc9b7e4f837610f8958e01149281..43d3757b1fd8657d6e2c8e10e2f9d9dc9bed994a 100644 (file)
--- a/gcc/ada/libgnat/a-tideau.adb
+++ b/gcc/ada/libgnat/a-tideau.adb
@@ -227,7 +227,7 @@ package body Ada.Text_IO.Decimal_Aux is
    end Puts_Dec;
 
    --------------
-   -- Puts_Dec --
+   -- Puts_LLD --
    --------------
 
    procedure Puts_LLD

diff --git a/gcc/ada/libgnat/a-wtdeau.adb b/gcc/ada/libgnat/a-wtdeau.adb
index 80dd9a3c830853edf81b5c05ed1053edae587195..3e729280f62d50512b91fcf2c870897000e57a44 100644 (file)
--- a/gcc/ada/libgnat/a-wtdeau.adb
+++ b/gcc/ada/libgnat/a-wtdeau.adb
@@ -229,7 +229,7 @@ package body Ada.Wide_Text_IO.Decimal_Aux is
    end Puts_Dec;
 
    --------------
-   -- Puts_Dec --
+   -- Puts_LLD --
    --------------
 
    procedure Puts_LLD

diff --git a/gcc/ada/libgnat/a-ztdeau.adb b/gcc/ada/libgnat/a-ztdeau.adb
index c79e28d04f25ef8419652c8282af8b041662b6ab..92063b674b77ffa4949bed71dbd1685c16e69240 100644 (file)
--- a/gcc/ada/libgnat/a-ztdeau.adb
+++ b/gcc/ada/libgnat/a-ztdeau.adb
@@ -229,7 +229,7 @@ package body Ada.Wide_Wide_Text_IO.Decimal_Aux is
    end Puts_Dec;
 
    --------------
-   -- Puts_Dec --
+   -- Puts_LLD --
    --------------
 
    procedure Puts_LLD

diff --git a/gcc/ada/libgnat/g-alleve.adb b/gcc/ada/libgnat/g-alleve.adb
index ae655028c4bcb6093a2eada769df3a8032ee3eef..6ca0c046044a4511153cce98bde380907f7274c7 100644 (file)
--- a/gcc/ada/libgnat/g-alleve.adb
+++ b/gcc/ada/libgnat/g-alleve.adb
@@ -1199,7 +1199,7 @@ package body GNAT.Altivec.Low_Level_Vectors is
       end Saturate;
 
       -------------
-      -- vmulsxs --
+      -- vmulxsx --
       -------------
 
       function vmulxsx
@@ -2994,9 +2994,9 @@ package body GNAT.Altivec.Low_Level_Vectors is
       return To_Vector (D);
    end vmaxsw;
 
-   --------------
-   -- vmaxsxfp --
-   --------------
+   ------------
+   -- vmaxfp --
+   ------------
 
    function vmaxfp (A : LL_VF; B : LL_VF) return LL_VF is
       VA : constant VF_View := To_View (A);
@@ -3279,7 +3279,7 @@ package body GNAT.Altivec.Low_Level_Vectors is
    end vmsumubm;
 
    --------------
-   -- vmsumumbm --
+   -- vmsummbm --
    --------------
 
    function vmsummbm (A : LL_VSC; B : LL_VSC; C : LL_VSI) return LL_VSI is
@@ -4347,7 +4347,7 @@ package body GNAT.Altivec.Low_Level_Vectors is
    end stvx;
 
    ------------
-   -- stvewx --
+   -- stvebx --
    ------------
 
    procedure stvebx (A : LL_VSC; B : c_int; C : c_ptr) is

diff --git a/gcc/ada/libgnat/s-excdeb.adb b/gcc/ada/libgnat/s-excdeb.adb
index c3db7749727b2e698d4a1bc4577d534626312d1c..246e91426e54fbbac32546e4cf5b802b764f6dd7 100644 (file)
--- a/gcc/ada/libgnat/s-excdeb.adb
+++ b/gcc/ada/libgnat/s-excdeb.adb
@@ -46,7 +46,7 @@ package body System.Exceptions_Debug is
    end Debug_Raise_Exception;
 
    -------------------------------
-   -- Debug_unhandled_Exception --
+   -- Debug_Unhandled_Exception --
    -------------------------------
 
    procedure Debug_Unhandled_Exception (E : SSL.Exception_Data_Ptr) is

diff --git a/gcc/ada/libgnat/s-parint.adb b/gcc/ada/libgnat/s-parint.adb
index 56fce7a6bb261b61203a61e46d5b505e52083904..056af7e9f2defd0cda210023d1587df74d3f6bfc 100644 (file)
--- a/gcc/ada/libgnat/s-parint.adb
+++ b/gcc/ada/libgnat/s-parint.adb
@@ -72,7 +72,7 @@ package body System.Partition_Interface is
    end Check;
 
    -----------------------------
-   -- Get_Active_Partition_Id --
+   -- Get_Active_Partition_ID --
    -----------------------------
 
    function Get_Active_Partition_ID
@@ -103,7 +103,7 @@ package body System.Partition_Interface is
    end Get_Active_Version;
 
    ----------------------------
-   -- Get_Local_Partition_Id --
+   -- Get_Local_Partition_ID --
    ----------------------------
 
    function Get_Local_Partition_ID return System.RPC.Partition_ID is

diff --git a/gcc/ada/libgnat/s-shasto.adb b/gcc/ada/libgnat/s-shasto.adb
index 8bc835d32d875bbce39cd180da7c2b75a50d347f..4efc0fec342d63616b4f8fc8af816ab7fa7d4c96 100644 (file)
--- a/gcc/ada/libgnat/s-shasto.adb
+++ b/gcc/ada/libgnat/s-shasto.adb
@@ -507,9 +507,9 @@ package body System.Shared_Storage is
          raise;
    end Shared_Var_Unlock;
 
-   ---------------------
-   -- Share_Var_WOpen --
-   ---------------------
+   ----------------------
+   -- Shared_Var_WOpen --
+   ----------------------
 
    function Shared_Var_WOpen (Var : String) return SIO.Stream_Access is
       SFE : Shared_Var_File_Entry_Ptr;

diff --git a/gcc/ada/libgnat/s-traceb__hpux.adb b/gcc/ada/libgnat/s-traceb__hpux.adb
index 6e518cf970d49b27c1cf68a489944e4b5c8d9e6b..8a75a267aed9d6e576f111449fc6c02ea49ba803 100644 (file)
--- a/gcc/ada/libgnat/s-traceb__hpux.adb
+++ b/gcc/ada/libgnat/s-traceb__hpux.adb
@@ -395,9 +395,9 @@ package body System.Traceback is
          return True;
       end Pop_Frame;
 
-      ---------------------------------
-      -- Prepare_State_For_Unwind_Of --
-      ---------------------------------
+      ---------------------------
+      -- Prepare_For_Unwind_Of --
+      ---------------------------
 
       function Prepare_For_Unwind_Of
         (Frame : not null access CFD) return Boolean

diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb
index ad155aa9378a7a67b8bac8c710b9cecc5bb26dcd..bb86f6fbbdd8179ee3c59bf77a281573009efa41 100644 (file)
--- a/gcc/ada/prepcomp.adb
+++ b/gcc/ada/prepcomp.adb
@@ -193,9 +193,9 @@ package body Prepcomp is
       end if;
    end Check_Symbols;
 
-   ------------------------------
-   -- Parse_Preprocessing_Data --
-   ------------------------------
+   -----------------------------------
+   -- Parse_Preprocessing_Data_File --
+   -----------------------------------
 
    procedure Parse_Preprocessing_Data_File (N : File_Name_Type) is
       OK            : Boolean := False;

diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index c989dfb90503f3e0eeccec264a5485c146656ec8..59e275ac52d7e0f32cd5c79fa201b260d6a85685 100644 (file)
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -4288,9 +4288,9 @@ package body Sem_Ch4 is
          end if;
       end Check_High_Bound;
 
-      -----------------------------
-      -- Is_Universal_Expression --
-      -----------------------------
+      --------------------------------
+      -- Check_Universal_Expression --
+      --------------------------------
 
       procedure Check_Universal_Expression (N : Node_Id) is
       begin

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 186467d9cb3f5fa184d8cf8ac002189fb84a2b23..e621ac3cb89d02af8e017b0786592db021172a13 100644 (file)
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -307,9 +307,9 @@ package body Sem_Ch6 is
             --  Tree traversal routine that clones the defining identifier of
             --  iterator and loop parameter specification nodes.
 
-            ----------------
-            -- Check_Node --
-            ----------------
+            --------------
+            -- Clone_Id --
+            --------------
 
             function Clone_Id (Node : Node_Id) return Traverse_Result is
             begin
@@ -10349,7 +10349,7 @@ package body Sem_Ch6 is
          --  conformant with the profile of Subp; return Empty if not found.
 
          ---------------------------------
-         -- Check_Confirming_Parameters --
+         -- Check_Conforming_Parameters --
          ---------------------------------
 
          function Check_Conforming_Parameters

diff --git a/gcc/ada/sem_dist.adb b/gcc/ada/sem_dist.adb
index e781e825394c7ae18e59d49d0be2dff3fc855f82..e8a87637266b4cbf1d68369a140cdf75e2caa98c 100644 (file)
--- a/gcc/ada/sem_dist.adb
+++ b/gcc/ada/sem_dist.adb
@@ -352,7 +352,7 @@ package body Sem_Dist is
    end Package_Specification_Of_Scope;
 
    --------------------------
-   -- Process_Partition_ID --
+   -- Process_Partition_Id --
    --------------------------
 
    procedure Process_Partition_Id (N : Node_Id) is

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 9e28de0b6b183b459a1347d85a4badcbb6a4c850..4a5026c235339a6365dd1cfad117a18029b3bdae 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -4904,9 +4904,9 @@ package body Sem_Prag is
          end loop;
       end Analyze_Unmodified_Or_Unused;
 
-      -----------------------------------
-      -- Analyze_Unreference_Or_Unused --
-      -----------------------------------
+      ------------------------------------
+      -- Analyze_Unreferenced_Or_Unused --
+      ------------------------------------
 
       procedure Analyze_Unreferenced_Or_Unused
         (Is_Unused : Boolean := False)
@@ -10798,9 +10798,9 @@ package body Sem_Prag is
          pragma No_Return (Bad_Mechanism);
          --  Signal bad mechanism name
 
-         -------------------------
-         -- Bad_Mechanism_Value --
-         -------------------------
+         -------------------
+         -- Bad_Mechanism --
+         -------------------
 
          procedure Bad_Mechanism is
          begin

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 5fa02ddde1c42b9914bc41f0e31d0db0ff081670..c9d902e3de76b85d1611f9e3b10df8d6e75678ad 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -9279,7 +9279,7 @@ package body Sem_Util is
    end Get_Iterable_Type_Primitive;
 
    ----------------------------------
-   -- Get_Library_Unit_Name_string --
+   -- Get_Library_Unit_Name_String --
    ----------------------------------
 
    procedure Get_Library_Unit_Name_String (Decl_Node : Node_Id) is

diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb
index 703086e2b4db7418588c4ca66c2f938d0c9f1de2..d27a9051046ecea20d11ae9af4e1180959f64726 100644 (file)
--- a/gcc/ada/sinfo.adb
+++ b/gcc/ada/sinfo.adb
@@ -7255,9 +7255,9 @@ package body Sinfo is
              T = V11;
    end Nkind_In;
 
-   -----------------
-   -- Pragma_Name --
-   -----------------
+   --------------------------
+   -- Pragma_Name_Unmapped --
+   --------------------------
 
    function Pragma_Name_Unmapped (N : Node_Id) return Name_Id is
    begin

diff --git a/gcc/ada/switch.adb b/gcc/ada/switch.adb
index dcc9f2add638ae4f2e0a53f18c11a50d9bf4b4e3..7fd86f7bc04e3a7d8e18032df3ac800c2afe2a9f 100644 (file)
--- a/gcc/ada/switch.adb
+++ b/gcc/ada/switch.adb
@@ -179,7 +179,7 @@ package body Switch is
    end Is_Switch;
 
    -----------------
-   -- Switch_last --
+   -- Switch_Last --
    -----------------
 
    function Switch_Last (Switch_Chars : String) return Natural is