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/elists.ads | |
| 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/elists.ads')
| -rw-r--r-- | gcc/ada/elists.ads | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/ada/elists.ads b/gcc/ada/elists.ads index 12672a6..825b87f 100644 --- a/gcc/ada/elists.ads +++ b/gcc/ada/elists.ads @@ -90,6 +90,21 @@ package Elists is -- a field in some other node which points to an element list where the -- list is then subsequently filled in using Append calls. + function New_Elmt_List (Elmt1 : Node_Or_Entity_Id) return Elist_Id; + function New_Elmt_List + (Elmt1 : Node_Or_Entity_Id; + Elmt2 : Node_Or_Entity_Id) return Elist_Id; + function New_Elmt_List + (Elmt1 : Node_Or_Entity_Id; + Elmt2 : Node_Or_Entity_Id; + Elmt3 : Node_Or_Entity_Id) return Elist_Id; + function New_Elmt_List + (Elmt1 : Node_Or_Entity_Id; + Elmt2 : Node_Or_Entity_Id; + Elmt3 : Node_Or_Entity_Id; + Elmt4 : Node_Or_Entity_Id) return Elist_Id; + -- Create a new element list containing the given arguments. + function First_Elmt (List : Elist_Id) return Elmt_Id; pragma Inline (First_Elmt); -- Obtains the first element of the given element list or, if the list has |