From b68e5db5c26c56a39ac3e3c253f3c9a58058da91 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Thu, 23 Jul 2020 10:07:24 +0200 Subject: [PATCH] [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. --- gcc/ada/gnat_cuda.adb | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/gcc/ada/gnat_cuda.adb b/gcc/ada/gnat_cuda.adb index fef0d185918..39a55e64df8 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(""); - 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 -- 2.30.2