[Ada] Style fixes related to calls to List_Length

gcc/ada/

	* sem_ch13.adb, sem_util.adb: Fix style.

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 6af3238..c863154 100644 (file)
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -11794,6 +11794,8 @@ package body Sem_Ch13 is
             end;
          end Check_Component_List;
 
+         --  Local variables
+
          Sbit : Uint;
          --  Starting bit for call to Check_Component_List. Zero for an
          --  untagged type. The size of the Tag for a nonderived tagged

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index e3ac718..b7b622d 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -29957,7 +29957,7 @@ package body Sem_Util is
 
       procedure Normalize_Interval_List
          (List : in out Discrete_Interval_List; Last : out Nat);
-      --  Perform sorting and merging as required by Check_Consistency.
+      --  Perform sorting and merging as required by Check_Consistency
 
       -------------------------
       -- Aggregate_Intervals --
@@ -29972,6 +29972,10 @@ package body Sem_Util is
          --  Count the number of intervals given in the aggregate N; the others
          --  choice (if present) is not taken into account.
 
+         ------------------------------
+         -- Unmerged_Intervals_Count --
+         ------------------------------
+
          function Unmerged_Intervals_Count return Nat is
             Count  : Nat := 0;
             Choice : Node_Id;
@@ -30072,7 +30076,7 @@ package body Sem_Util is
         (Discrete_Choices : List_Id) return Discrete_Interval_List
       is
          function Unmerged_Choice_Count return Nat;
-         --  The number of intervals before adjacent intervals are merged.
+         --  The number of intervals before adjacent intervals are merged
 
          ---------------------------
          -- Unmerged_Choice_Count --