diff options
author | Ghjuvan Lacambre <lacambre@adacore.com> | 2020-06-24 17:12:19 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-16 03:34:54 -0400 |
commit | 524301457dd42c12bb76dc4ff47d8e270e39ef65 (patch) | |
tree | 51dd3f2d8d06aac3727dac2aa91c64be0ceebe48 /gcc/ada/rtsfind.adb | |
parent | 54690b9871d742bb322d28f7c1c4fa8b81cf94e6 (diff) | |
download | gcc-524301457dd42c12bb76dc4ff47d8e270e39ef65.zip gcc-524301457dd42c12bb76dc4ff47d8e270e39ef65.tar.gz gcc-524301457dd42c12bb76dc4ff47d8e270e39ef65.tar.bz2 |
[Ada] Implement expansion of CUDA_Execute pragma
gcc/ada/
* elists.ads (New_Elmt_List): New functions.
* elists.adb (New_Elmt_List): New functions.
* exp_prag.adb: Add dependency on Elists.
(Expand_Pragma_CUDA_Execute): New function.
(Expand_N_Pragma): Add call to Expand_Pragma_CUDA_Execute.
* rtsfind.ads: Add CUDA.Internal, CUDA.Runtime, System.C
packages and RE_Push_Call_Configuration,
RE_Pop_Call_Configuration, RE_Launch_Kernel, RO_IC_Unsigned,
RO_IC_Unsigned_Long_Long entities.
* rtsfind.adb: Extend Interfaces_Descendant to include
Interfaces_C.
Diffstat (limited to 'gcc/ada/rtsfind.adb')
-rw-r--r-- | gcc/ada/rtsfind.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index 7689375..83220ef 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -589,7 +589,7 @@ package body Rtsfind is range CUDA_Driver_Types .. CUDA_Vector_Types; subtype Interfaces_Descendant is RTU_Id - range Interfaces_Packed_Decimal .. Interfaces_Packed_Decimal; + range Interfaces_C .. Interfaces_Packed_Decimal; subtype System_Descendant is RTU_Id range System_Address_Image .. System_Tasking_Stages; |