From f9d670128f6e6b3631a2db575ddf6f19fa43afdc Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Fri, 11 Dec 2020 10:41:20 +0100 Subject: [PATCH] [Ada] Style fixes related to calls to List_Length gcc/ada/ * sem_ch13.adb, sem_util.adb: Fix style. --- gcc/ada/sem_ch13.adb | 2 ++ gcc/ada/sem_util.adb | 8 ++++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 6af3238..c863154 100644 --- 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 --- 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 -- -- 2.7.4