[gcc r12-1684] [Ada] Address ??? comments

[gcc r12-1684] [Ada] Address ??? comments

[Pierre-Marie de Rodat]

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

commit r12-1684-gc1f1ef183691543a6dd342803f814252512fa249
Author: Ghjuvan Lacambre <lacambre@adacore.com>
Date:   Sun Mar 28 14:10:53 2021 +0200

    [Ada] Address ??? comments
    
    gcc/ada/
    
            * exp_ch9.adb (Build_Simple_Entry_Call): Add comment.
            * libgnat/s-rannum.adb (Random): Update comment.
            * libgnat/s-rannum.ads (Generator): Update comment.

Diff:
---
 gcc/ada/exp_ch9.adb          | 6 +++++-
 gcc/ada/libgnat/s-rannum.adb | 5 ++++-
 gcc/ada/libgnat/s-rannum.ads | 4 +++-
 3 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index 3948b6a51a3..6b1e284f3fb 100644
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -282,7 +282,11 @@ package body Exp_Ch9 is
       Concval : Node_Id;
       Ename   : Node_Id;
       Index   : Node_Id);
-   --  Some comments here would be useful ???
+   --  Build the call corresponding to the task entry call. N is the task entry
+   --  call, Concval is the concurrent object, Ename is the entry name and
+   --  Index is the entry family index.
+   --  Note that N might be expanded into an N_Block_Statement if it gets
+   --  inlined.
 
    function Build_Task_Proc_Specification (T : Entity_Id) return Node_Id;
    --  This routine constructs a specification for the procedure that we will
diff --git a/gcc/ada/libgnat/s-rannum.adb b/gcc/ada/libgnat/s-rannum.adb
index 87691676a73..0a1565b83d7 100644
--- a/gcc/ada/libgnat/s-rannum.adb
+++ b/gcc/ada/libgnat/s-rannum.adb
@@ -178,7 +178,10 @@ is
    function Random (Gen : Generator) return Unsigned_32 is
       G : Generator renames Gen.Writable.Self.all;
       Y : State_Val;
-      I : Integer;      --  should avoid use of identifier I ???
+      I : Integer;
+      --  Naming exception: I is fine to use here as it is the name used in
+      --  the original paper describing the Mersenne Twister and in common
+      --  descriptions of the algorithm.
 
    begin
       I := G.I;
diff --git a/gcc/ada/libgnat/s-rannum.ads b/gcc/ada/libgnat/s-rannum.ads
index 855b5b57d45..370a07989b9 100644
--- a/gcc/ada/libgnat/s-rannum.ads
+++ b/gcc/ada/libgnat/s-rannum.ads
@@ -162,7 +162,9 @@ private
 
       I : Integer := N;
       --  Current starting position in shift register S (N means uninitialized)
-      --  We should avoid using the identifier I here ???
+      --  Naming exception: I is fine to use here as it is the name used in the
+      --  original paper describing the Mersenne Twister and in common
+      --  descriptions of the algorithm.
    end record;
 
 end System.Random_Numbers;