From b0a16e6d4c91120dd9a2900da0831e83e65f2046 Mon Sep 17 00:00:00 2001 From: Ghjuvan Lacambre Date: Thu, 30 Jan 2020 11:47:00 +0100 Subject: [Ada] Implement initialization of CUDA runtime gcc/ada/ * debug.adb: Document -gnatd_c flag as being used for CUDA. * gnat_cuda.ads: New file. * gnat_cuda.adb: New file. * rtsfind.ads: Add Interfaces_C_Strings package and RE_Fatbin_Wrapper, RE_Register_Fat_Binary, RE_Register_Fat_Binary_End, RE_Register_Function, RE_Chars_Ptr, RE_New_Char_Array entities. * rtsfind.adb: Create new Interfaces_C_Descendant subtype, handle it. * sem_ch7.adb (Analyze_Package_Body_Helper): Call CUDA init procedure. * sem_prag.adb (Analyze_Pragma): Call Add_Cuda_Kernel procedure. * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Add gnat_cuda.o. --- gcc/ada/debug.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada/debug.adb') diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb index bbdaf3b..4eb3d5b 100644 --- a/gcc/ada/debug.adb +++ b/gcc/ada/debug.adb @@ -147,7 +147,7 @@ package body Debug is -- d_a Stop elaboration checks on accept or select statement -- d_b - -- d_c + -- d_c CUDA compilation : compile for the host -- d_d -- d_e Ignore entry calls and requeue statements for elaboration -- d_f Issue info messages related to GNATprove usage -- cgit v1.1