[Ada] Style fixes related to calls to List_Length

gcc/ada/

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

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

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 --