[gcc r12-5098] [Ada] Fix comments about expansion of array equality

[gcc r12-5098] [Ada] Fix comments about expansion of array equality

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:ab6101146d82e14922753ae848a44774232f462b

commit r12-5098-gab6101146d82e14922753ae848a44774232f462b
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Fri Nov 5 12:12:11 2021 +0100

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

Diff:
---
 gcc/ada/exp_ch4.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 9c50668e957..05124dc7e78 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