diff options
| author | Ronan Desplanques <desplanques@adacore.com> | 2023-09-12 15:26:13 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-09-26 13:43:17 +0200 |
| commit | 4a91264af429ed84f0e06d6766a316ef29420521 (patch) | |
| tree | 096f9548e1d5252853bd8d4a3122995d3bd52022 | |
| parent | 3b426e21d88257356853e69ce8184d4cc501ce97 (diff) | |
| download | gcc-4a91264af429ed84f0e06d6766a316ef29420521.zip gcc-4a91264af429ed84f0e06d6766a316ef29420521.tar.gz gcc-4a91264af429ed84f0e06d6766a316ef29420521.tar.bz2 | |
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.
| -rw-r--r-- | gcc/ada/exp_prag.adb | 8 | ||||
| -rw-r--r-- | 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 1cc4653..d2807cd 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 881f723..669f6df 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 |