[Ada] Fix indentation of "Start of processing for ..." labels

The "Start of processing for ..." labels should be aligned with the
BEGIN that follows. Violations found with:

$ grep -Pzo "( *)   \-\-  Start of processing for \w+\n\n\1begin" *.adb

and corrected manually, because some of them had to be entirely removed.

Also, remove trailing semicolons found while guessing the grep pattern.

gcc/ada/

	* exp_aggr.adb, exp_ch3.adb, exp_util.adb, freeze.adb,
	gnatfind.adb, gnatlink.adb, gnatxref.adb, gprep.adb,
	libgnat/a-cfhama.adb, libgnat/g-alleve.adb, sem_ch12.adb,
	sem_ch13.adb, xr_tabls.adb: Fix style labels.

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index e360baa6683af4ba8a1233e59a2b0ef9c98a0856..9e781e01d03f69c550fe13ce5ceccfdd3b8751c9 100644 (file)
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -7542,7 +7542,7 @@ package body Exp_Aggr is
 
       end Expand_Iterated_Component;
 
-      --  Start of processing for Expand_Container_Aggregate
+   --  Start of processing for Expand_Container_Aggregate
 
    begin
       Parse_Aspect_Aggregate (Asp,

diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index 50f46fb479eb5b11b2a3a75bebf5514f2a70a72c..97988bb309054fc03672f02d8463303c92c1a654 100644 (file)
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -1288,8 +1288,6 @@ package body Exp_Ch3 is
       Comp      : Entity_Id;
       Comp_Type : Entity_Id;
 
-      --  Start of processing for Build_Equivalent_Record_Aggregate
-
    begin
       if not Is_Record_Type (T)
         or else Has_Discriminants (T)

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 416ce65b1897d087905efaebdf733a69ad0a9000..5e36c3adee497aa5012230a8f972313b0b7791ed 100644 (file)
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -6468,7 +6468,7 @@ package body Exp_Util is
          return Empty;
       end Check_Decls;
 
-      --  Start of processing for Following_Address_Clause
+   --  Start of processing for Following_Address_Clause
 
    begin
       --  If parser detected no address clause for the identifier in question,

diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index 7ed44f591fc207867c9fecf75196536c26a802af..25bad46e62ea803a1eeced6a0ce2a591f0d8caca 100644 (file)
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -3581,7 +3581,7 @@ package body Freeze is
                      end if;
                   end Complain_CS;
 
-                  --  Start of processing for Alias_Atomic_Check
+               --  Start of processing for Alias_Atomic_Check
 
                begin
                   --  If object size of component type isn't known, we cannot

diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb
index 5df6a985d5e6d2d6445a0679e4c666c1b8b77cfb..04b0fe4faf290c20352a40117be94c94a584bb87 100644 (file)
--- a/gcc/ada/gnatfind.adb
+++ b/gcc/ada/gnatfind.adb
@@ -86,7 +86,7 @@ procedure Gnatfind is
 
       procedure Check_Version_And_Help is new Check_Version_And_Help_G (Usage);
 
-      --  Start of processing for Parse_Cmd_Line
+   --  Start of processing for Parse_Cmd_Line
 
    begin
       --  First check for --version or --help

diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb
index 613a6b260a464631f31e165ef6d11fe8178978a7..d5997344540197dc7ea572f3a8160187830938e2 100644 (file)
--- a/gcc/ada/gnatlink.adb
+++ b/gcc/ada/gnatlink.adb
@@ -407,7 +407,7 @@ procedure Gnatlink is
 
       procedure Check_Version_And_Help is new Check_Version_And_Help_G (Usage);
 
-      --  Start of processing for Process_Args
+   --  Start of processing for Process_Args
 
    begin
       --  First, check for --version and --help

diff --git a/gcc/ada/gnatxref.adb b/gcc/ada/gnatxref.adb
index c9f234c94fca1d984f3d2b468f67025b9dcb65ec..9499d11551a6ffabd76a91d27b522a82a55401ca 100644 (file)
--- a/gcc/ada/gnatxref.adb
+++ b/gcc/ada/gnatxref.adb
@@ -74,7 +74,7 @@ procedure Gnatxref is
 
       procedure Check_Version_And_Help is new Check_Version_And_Help_G (Usage);
 
-      --  Start of processing for Parse_Cmd_Line
+   --  Start of processing for Parse_Cmd_Line
 
    begin
       --  First check for --version or --help

diff --git a/gcc/ada/gprep.adb b/gcc/ada/gprep.adb
index c6e40ffa83e1af939d9cdfb1612d7cf85a416a68..36ec1d81e2e004e12fa8ea900509bcc2eb9caa0a 100644 (file)
--- a/gcc/ada/gprep.adb
+++ b/gcc/ada/gprep.adb
@@ -729,7 +729,7 @@ package body GPrep is
 
       procedure Check_Version_And_Help is new Check_Version_And_Help_G (Usage);
 
-      --  Start of processing for Scan_Command_Line
+   --  Start of processing for Scan_Command_Line
 
    begin
       --  First check for --version or --help

diff --git a/gcc/ada/libgnat/a-cfhama.adb b/gcc/ada/libgnat/a-cfhama.adb
index 48950de35103a2d3a8d7cc8c73808d37cf572564..da20b93812770eb77704159736657ff18bcd8a86 100644 (file)
--- a/gcc/ada/libgnat/a-cfhama.adb
+++ b/gcc/ada/libgnat/a-cfhama.adb
@@ -151,7 +151,7 @@ is
          Insert (Target, N.Key, N.Element);
       end Insert_Element;
 
-      --  Start of processing for Assign
+   --  Start of processing for Assign
 
    begin
       if Target'Address = Source'Address then

diff --git a/gcc/ada/libgnat/g-alleve.adb b/gcc/ada/libgnat/g-alleve.adb
index 0dba0291be9053951d8530ec29f1e924398e91d7..4db442cdb2297fe723afc2fc7030302acb5141b6 100644 (file)
--- a/gcc/ada/libgnat/g-alleve.adb
+++ b/gcc/ada/libgnat/g-alleve.adb
@@ -3779,7 +3779,7 @@ package body GNAT.Altivec.Low_Level_Vectors is
          return D;
       end Saturate;
 
-      --  Start of processing for vpksxus
+   --  Start of processing for vpksxus
 
    begin
       for J in 0 .. N - 1 loop

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 5eeaf3d252f08c44fccbabed11d344baec1e20e8..f01562d7cac0d87343c567eaf83f74474a2cef55 100644 (file)
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -17192,7 +17192,7 @@ package body Sem_Ch12 is
          end if;
       end Validate_Derived_Type_Default;
 
-      --  Start of processing for Validate_Formal_Type_Default
+   --  Start of processing for Validate_Formal_Type_Default
 
    begin
       Analyze (Default);

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index b29b1db6ff1f3200d572e3096b3422881a7ee2e3..cfbb066b00d0428b73bab50a19d456d469a3691f 100644 (file)
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -12449,7 +12449,7 @@ package body Sem_Ch13 is
                OC_Lbit (To) := OC_Lbit (From);
             end OC_Move;
 
-            --  Start of processing for Overlap_Check
+         --  Start of processing for Overlap_Check
 
          begin
             CC := First (Component_Clauses (N));

diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb
index 22e4705a4b66bbbe2975bccd59aed9ccac21a892..8f6fb7a27a8a7cc84aaabd7333b3010f5a105e49 100644 (file)
--- a/gcc/ada/xr_tabls.adb
+++ b/gcc/ada/xr_tabls.adb
@@ -819,7 +819,7 @@ package body Xr_Tabls is
          end if;
       end Internal_Strip;
 
-   --  Start of processing for Get_File;
+   --  Start of processing for Get_File
 
    begin
       --  If we do not want the full path name