[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 --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 9c50668e957b683db168069dbe562734988dc9ca..05124dc7e78106e04c182757fc96e839a6c2873e 100644 (file)
--- 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