[COMMITTED] ada: Make minor corrections to CUDA-related comments

[COMMITTED] ada: Make minor corrections to CUDA-related comments

[Marc Poulhiès]

From: Ronan Desplanques <desplanques@adacore.com>

gcc/ada/

	* exp_prag.adb: Make minor corrections in comments.
	* rtsfind.ads: Remove unused element from RTU_Id definition.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/exp_prag.adb | 8 ++++----
 gcc/ada/rtsfind.ads  | 1 -
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb
index 1cc4653a3b0..d2807cdc7ef 100644
--- a/gcc/ada/exp_prag.adb
+++ b/gcc/ada/exp_prag.adb
@@ -685,7 +685,7 @@ package body Exp_Prag is
    --        Blocks_Id'address,
    --        Mem_Id'address,
    --        Stream_Id'address),
-   --      CUDA.Runtime_Api.Launch_Kernel (
+   --      CUDA.Internal.Launch_Kernel (
    --        My_Proc'Address,
    --        Blocks_Id,
    --        Grids_Id,
@@ -703,7 +703,7 @@ package body Exp_Prag is
          Decls  : List_Id;
          Copies : Elist_Id);
       --  For each parameter in list Params, create an object declaration of
-      --  the followinng form:
+      --  the following form:
       --
       --    Copy_Id : Param_Typ := Param_Val;
       --
@@ -755,8 +755,8 @@ package body Exp_Prag is
          Kernel_Arg : Entity_Id;
          Memory     : Entity_Id;
          Stream     : Entity_Id) return Node_Id;
-      --  Builds and returns a call to CUDA.Launch_Kernel using the given
-      --  arguments. Proc is the entity of the procedure passed to the
+      --  Builds and returns a call to CUDA.Internal.Launch_Kernel using the
+      --  given arguments. Proc is the entity of the procedure passed to the
       --  CUDA_Execute pragma. Grid_Dims and Block_Dims are entities of the
       --  generated declarations that hold the kernel's dimensions. Args is the
       --  entity of the temporary array that holds the arguments of the kernel.
diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads
index 881f723dfa9..669f6df79cb 100644
--- a/gcc/ada/rtsfind.ads
+++ b/gcc/ada/rtsfind.ads
@@ -179,7 +179,6 @@ package Rtsfind is
 
       CUDA_Driver_Types,
       CUDA_Internal,
-      CUDA_Runtime_Api,
       CUDA_Vector_Types,
 
       --  Interfaces
-- 
2.42.0