[gcc r13-225] [Ada] Fix comment about building names in task arrays

[gcc r13-225] [Ada] Fix comment about building names in task arrays

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:3d9e2004fe4e15b133bd8472c4bf46cbff809583

commit r13-225-g3d9e2004fe4e15b133bd8472c4bf46cbff809583
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Wed Jan 19 13:29:46 2022 +0100

    [Ada] Fix comment about building names in task arrays
    
    Cleanup related to handling of character values in SPARK
    counterexamples, which just like the code for names in task arrays
    create N_Character_Literal nodes.
    
    gcc/ada/
    
            * exp_util.adb (Build_Task_Array_Image): Fix style in the
            structure of generated code; add Pref'Length as the component of
            the Sum initialization expression.

Diff:
---
 gcc/ada/exp_util.adb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 263b42f7586..b3d1fdf3cdf 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -4048,13 +4048,13 @@ package body Exp_Util is
    --  The generated function has the following structure:
 
    --  function F return String is
-   --     Pref : string renames Task_Name;
+   --     Pref : String renames Task_Name;
    --     T1   : String := Index1'Image (Val1);
    --     ...
-   --     Tn   : String := indexn'image (Valn);
-   --     Len  : Integer := T1'Length + ... + Tn'Length + n + 1;
-   --     --  Len includes commas and the end parentheses.
-   --     Res  : String (1..Len);
+   --     Tn   : String := Indexn'Image (Valn);
+   --     Len  : Integer := Pref'Length + T1'Length + ... + Tn'Length + n + 1;
+   --     --  Len includes commas and the end parentheses
+   --     Res  : String (1 .. Len);
    --     Pos  : Integer := Pref'Length;
    --
    --  begin