[gcc r12-5021] [Ada] Tune comment about expansion of array equality

[gcc r12-5021] [Ada] Tune comment about expansion of array equality

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:1275c4031a7d3b55e127cab53f31362469f8c89b

commit r12-5021-g1275c4031a7d3b55e127cab53f31362469f8c89b
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Tue Oct 26 17:57:59 2021 +0200

    [Ada] Tune comment about expansion of array equality
    
    gcc/ada/
    
            * exp_ch4.adb (Arr_Attr): Refine type of the parameter from Int
            to Pos; refine name of the parameter from Num to Dim; fix
            reference to "Expr" in comment.

Diff:
---
 gcc/ada/exp_ch4.adb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 1eebde446e7..93dffb66011 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -1625,8 +1625,8 @@ package body Exp_Ch4 is
       function Arr_Attr
         (Arr : Entity_Id;
          Nam : Name_Id;
-         Num : Int) return Node_Id;
-      --  This builds the attribute reference Arr'Nam (Expr)
+         Dim : Pos) return Node_Id;
+      --  This builds the attribute reference Arr'Nam (Dim)
 
       function Component_Equality (Typ : Entity_Id) return Node_Id;
       --  Create one statement to compare corresponding components, designated
@@ -1691,14 +1691,14 @@ package body Exp_Ch4 is
       function Arr_Attr
         (Arr : Entity_Id;
          Nam : Name_Id;
-         Num : Int) return Node_Id
+         Dim : Pos) return Node_Id
       is
       begin
          return
            Make_Attribute_Reference (Loc,
              Attribute_Name => Nam,
              Prefix         => New_Occurrence_Of (Arr, Loc),
-             Expressions    => New_List (Make_Integer_Literal (Loc, Num)));
+             Expressions    => New_List (Make_Integer_Literal (Loc, Dim)));
       end Arr_Attr;
 
       ------------------------