[Ada] Minor reformatting

2018-05-25  Justin Squirek  <squirek@adacore.com>

gcc/ada/

	* sem_ch8.adb: Minor reformatting.

From-SVN: r260729

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5596c595028eec6d43808aea2b1e91ba3cd9586a..35fba035625ac15c93e860644fe7e46dbcfed83e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-25  Justin Squirek  <squirek@adacore.com>
+
+       * sem_ch8.adb: Minor reformatting.
+
 2018-05-25  Piotr Trojanek  <trojanek@adacore.com>
 
        * sem_util.adb (Iterate_Call_Parameters): Fix code convention and

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 8f8b03a3237345abe09fb854a2d47a1bc0ba1e96..382f12dad7ba60fa56e061d99982fc597601dfbc 100644 (file)
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -8297,6 +8297,7 @@ package body Sem_Ch8 is
    ----------------------
 
    procedure Mark_Use_Clauses (Id : Node_Or_Entity_Id) is
+
       procedure Mark_Parameters (Call : Entity_Id);
       --  Perform use_type_clause marking for all parameters in a subprogram
       --  or operator call.
@@ -8528,7 +8529,8 @@ package body Sem_Ch8 is
      (Clause1 : Entity_Id;
       Clause2 : Entity_Id) return Entity_Id
    is
-      Scope1, Scope2 : Entity_Id;
+      Scope1 : Entity_Id;
+      Scope2 : Entity_Id;
 
    begin
       if Clause1 = Clause2 then