From: Piotr Trojanek <troja...@adacore.com>

Code cleanup.

gcc/ada/

        * contracts.adb (Inherit_Subprogram_Contract): Fix style.
        * sem_ch5.adb (Analyze_Iterator_Specification): Likewise.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/contracts.adb | 2 +-
 gcc/ada/sem_ch5.adb   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/contracts.adb b/gcc/ada/contracts.adb
index c440053bb78..c04d850b532 100644
--- a/gcc/ada/contracts.adb
+++ b/gcc/ada/contracts.adb
@@ -3620,7 +3620,7 @@ package body Contracts is
          end if;
       end Inherit_Pragma;
 
-   --   Start of processing for Inherit_Subprogram_Contract
+   --  Start of processing for Inherit_Subprogram_Contract
 
    begin
       --  Inheritance is carried out only when both entities are subprograms
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb
index dc9524b0891..2677a2c5a1c 100644
--- a/gcc/ada/sem_ch5.adb
+++ b/gcc/ada/sem_ch5.adb
@@ -2158,7 +2158,7 @@ package body Sem_Ch5 is
          return Etype (Ent);
       end Get_Cursor_Type;
 
-   --   Start of processing for Analyze_Iterator_Specification
+   --  Start of processing for Analyze_Iterator_Specification
 
    begin
       Enter_Name (Def_Id);
-- 
2.43.2

Reply via email to