diff options
author | Ghjuvan Lacambre <lacambre@adacore.com> | 2020-01-30 11:47:00 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-19 05:53:39 -0400 |
commit | b0a16e6d4c91120dd9a2900da0831e83e65f2046 (patch) | |
tree | fddf91c6ac35ddec55df092cb2927cff6a1cc151 /gcc/ada/rtsfind.adb | |
parent | 2bb7741fbeee2f4fd472cd7e9791ae0b54e7a2b4 (diff) | |
download | gcc-b0a16e6d4c91120dd9a2900da0831e83e65f2046.zip gcc-b0a16e6d4c91120dd9a2900da0831e83e65f2046.tar.gz gcc-b0a16e6d4c91120dd9a2900da0831e83e65f2046.tar.bz2 |
[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.
Diffstat (limited to 'gcc/ada/rtsfind.adb')
-rw-r--r-- | gcc/ada/rtsfind.adb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index 83220ef..872ce01 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -589,7 +589,10 @@ package body Rtsfind is range CUDA_Driver_Types .. CUDA_Vector_Types; subtype Interfaces_Descendant is RTU_Id - range Interfaces_C .. Interfaces_Packed_Decimal; + range Interfaces_C .. Interfaces_C_Strings; + + subtype Interfaces_C_Descendant is Interfaces_Descendant + range Interfaces_C_Strings .. Interfaces_C_Strings; subtype System_Descendant is RTU_Id range System_Address_Image .. System_Tasking_Stages; @@ -674,6 +677,10 @@ package body Rtsfind is elsif U_Id in Interfaces_Descendant then Name_Buffer (11) := '.'; + if U_Id in Interfaces_C_Descendant then + Name_Buffer (13) := '.'; + end if; + elsif U_Id in System_Descendant then Name_Buffer (7) := '.'; |