[gcc r14-4267] ada: Make minor corrections to CUDA-related comments

[gcc r14-4267] ada: Make minor corrections to CUDA-related comments

[Marc Poulhi?s]

https://gcc.gnu.org/g:4a91264af429ed84f0e06d6766a316ef29420521

commit r14-4267-g4a91264af429ed84f0e06d6766a316ef29420521
Author: Ronan Desplanques <desplanques@adacore.com>
Date:   Tue Sep 12 15:26:13 2023 +0200

    ada: Make minor corrections to CUDA-related comments
    
    gcc/ada/
    
            * exp_prag.adb: Make minor corrections in comments.
            * rtsfind.ads: Remove unused element from RTU_Id definition.

Diff:
---
 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