diff options
| author | Richard Kenner <kenner@adacore.com> | 2020-07-23 10:07:24 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-20 03:21:45 -0400 |
| commit | b68e5db5c26c56a39ac3e3c253f3c9a58058da91 (patch) | |
| tree | 90c11b4dcf7b737a11c8ee2410df04ba5afa3593 /gcc | |
| parent | abc694ce7c956a38d2e8057496e25766cf0e216a (diff) | |
| download | gcc-b68e5db5c26c56a39ac3e3c253f3c9a58058da91.zip gcc-b68e5db5c26c56a39ac3e3c253f3c9a58058da91.tar.gz gcc-b68e5db5c26c56a39ac3e3c253f3c9a58058da91.tar.bz2 | |
[Ada] CUDA: build procedure calls instead of function calls
gcc/ada/
* gnat_cuda.adb (Build_Register_Function_Call): Make procedure
call instead of function, rename to
Build_Register_Procedure_Call.
(Build_CUDA_Init_Proc): Make procedure call instead of function.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gnat_cuda.adb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/gnat_cuda.adb b/gcc/ada/gnat_cuda.adb index fef0d18..39a55e6 100644 --- a/gcc/ada/gnat_cuda.adb +++ b/gcc/ada/gnat_cuda.adb @@ -223,7 +223,7 @@ package body GNAT_CUDA is -- Kernel : Interfaces.C.Strings.Chars_Ptr := -- Interfaces.C.Strings.New_Char_Array("<Kernel's name>"); - function Build_Register_Function_Call + function Build_Register_Procedure_Call (Loc : Source_Ptr; Bin : Entity_Id; Kernel : Entity_Id; @@ -272,7 +272,7 @@ package body GNAT_CUDA is Analyze (New_Stmt); Append_To (Stmts, - Build_Register_Function_Call (Loc, + Build_Register_Procedure_Call (Loc, Bin => Handle_Id, Kernel => Kernel_Id, Kernel_Name => Defining_Entity (New_Stmt))); @@ -285,7 +285,7 @@ package body GNAT_CUDA is -- won't be registering any other symbol with the current fat binary. Append_To (Stmts, - Make_Function_Call (Loc, + Make_Procedure_Call_Statement (Loc, Name => New_Occurrence_Of (RTE (RE_Register_Fat_Binary_End), Loc), Parameter_Associations => @@ -440,11 +440,11 @@ package body GNAT_CUDA is Make_String_Literal (Loc, Kernel_Name)))); end Build_Kernel_Name_Declaration; - ---------------------------------- - -- Build_Register_Function_Call -- - ---------------------------------- + ----------------------------------- + -- Build_Register_Procedure_Call -- + ----------------------------------- - function Build_Register_Function_Call + function Build_Register_Procedure_Call (Loc : Source_Ptr; Bin : Entity_Id; Kernel : Entity_Id; @@ -487,11 +487,11 @@ package body GNAT_CUDA is -- list we just built. return - Make_Function_Call (Loc, + Make_Procedure_Call_Statement (Loc, Name => New_Occurrence_Of (RTE (RE_Register_Function), Loc), Parameter_Associations => Args); - end Build_Register_Function_Call; + end Build_Register_Procedure_Call; -- Local declarations |