public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r13-192] [Ada] Fix indentation of "Start of processing for ..." labels
@ 2022-05-09 9:31 Pierre-Marie de Rodat
0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2022-05-09 9:31 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:00b21aa982e71575f2a403c94e8086eb2a6264d2
commit r13-192-g00b21aa982e71575f2a403c94e8086eb2a6264d2
Author: Piotr Trojanek <trojanek@adacore.com>
Date: Thu Jan 13 22:29:01 2022 +0100
[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:
---
gcc/ada/exp_aggr.adb | 2 +-
gcc/ada/exp_ch3.adb | 2 --
gcc/ada/exp_util.adb | 2 +-
gcc/ada/freeze.adb | 2 +-
gcc/ada/gnatfind.adb | 2 +-
gcc/ada/gnatlink.adb | 2 +-
gcc/ada/gnatxref.adb | 2 +-
gcc/ada/gprep.adb | 2 +-
gcc/ada/libgnat/a-cfhama.adb | 2 +-
gcc/ada/libgnat/g-alleve.adb | 2 +-
gcc/ada/sem_ch12.adb | 2 +-
gcc/ada/sem_ch13.adb | 2 +-
gcc/ada/xr_tabls.adb | 2 +-
13 files changed, 12 insertions(+), 14 deletions(-)
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index e360baa6683..9e781e01d03 100644
--- 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 50f46fb479e..97988bb3090 100644
--- 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 416ce65b189..5e36c3adee4 100644
--- 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 7ed44f591fc..25bad46e62e 100644
--- 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 5df6a985d5e..04b0fe4faf2 100644
--- 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 613a6b260a4..d5997344540 100644
--- 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 c9f234c94fc..9499d11551a 100644
--- 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 c6e40ffa83e..36ec1d81e2e 100644
--- 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 48950de3510..da20b938127 100644
--- 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 0dba0291be9..4db442cdb22 100644
--- 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 5eeaf3d252f..f01562d7cac 100644
--- 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 b29b1db6ff1..cfbb066b00d 100644
--- 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 22e4705a4b6..8f6fb7a27a8 100644
--- 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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-05-09 9:31 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-05-09 9:31 [gcc r13-192] [Ada] Fix indentation of "Start of processing for ..." labels Pierre-Marie de Rodat
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).