diff mbox series

[Ada] Fix comments about expansion of array equality

Message ID 20211110085847.GA2811219@adacore.com
State Committed
Commit ab6101146d82e14922753ae848a44774232f462b
Headers
Series [Ada] Fix comments about expansion of array equality |

Commit Message

Pierre-Marie de Rodat Nov. 10, 2021, 8:58 a.m. UTC 
  Expansion of array equality involves two index variables.

Tested on x86_64-pc-linux-gnu, committed on trunk

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 mbox series

Patch

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
--- 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