diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-11-05 12:12:11 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-11-10 08:57:42 +0000 |
| commit | ab6101146d82e14922753ae848a44774232f462b (patch) | |
| tree | 1f6bf5dc43b8717510ebff690f6227e520865eae /gcc | |
| parent | db778c7022cc0e5b2b4100ccc7c2e52a0eaba3c0 (diff) | |
| download | gcc-ab6101146d82e14922753ae848a44774232f462b.zip gcc-ab6101146d82e14922753ae848a44774232f462b.tar.gz gcc-ab6101146d82e14922753ae848a44774232f462b.tar.bz2 | |
[Ada] Fix comments about expansion of array equality
gcc/ada/
* exp_ch4.adb (Expand_Array_Equality): Fix inconsistent casing
in comment about the template for expansion of array equality;
now we use lower case for true/false/boolean.
(Handle_One_Dimension): Fix comment about the template for
expansion of array equality.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 9c50668..05124dc 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -1541,14 +1541,14 @@ package body Exp_Ch4 is -- and then -- (B'length (1) = 0 or else B'length (2) = 0) -- then - -- return True; -- RM 4.5.2(22) + -- return true; -- RM 4.5.2(22) -- end if; -- if A'length (1) /= B'length (1) -- or else -- A'length (2) /= B'length (2) -- then - -- return False; -- RM 4.5.2(23) + -- return false; -- RM 4.5.2(23) -- end if; -- declare @@ -1638,6 +1638,7 @@ package body Exp_Ch4 is -- This procedure returns the following code -- -- declare + -- An : Index_T := A'First (N); -- Bn : Index_T := B'First (N); -- begin -- loop |