diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-12-11 10:41:20 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-04-28 05:38:20 -0400 |
| commit | f9d670128f6e6b3631a2db575ddf6f19fa43afdc (patch) | |
| tree | d9fc0ecb063f2c43dbdb137fb6262066d79777bf /gcc | |
| parent | ba344f1ba6948ded21ba3bda4d0f7460eee2862b (diff) | |
| download | gcc-f9d670128f6e6b3631a2db575ddf6f19fa43afdc.zip gcc-f9d670128f6e6b3631a2db575ddf6f19fa43afdc.tar.gz gcc-f9d670128f6e6b3631a2db575ddf6f19fa43afdc.tar.bz2 | |
[Ada] Style fixes related to calls to List_Length
gcc/ada/
* sem_ch13.adb, sem_util.adb: Fix style.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 2 | ||||
| -rw-r--r-- | 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 -- |