diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-07-23 09:54:45 -0400 |
|---|---|---|
| committer | Arnaud Charlet <charlet@adacore.com> | 2020-07-23 09:56:56 -0400 |
| commit | ad1bea3a4b30482686be9245af78f994722f2fec (patch) | |
| tree | 6391903a937f03422a0d620f1a9dabedbb241924 /gcc/ada/sem_prag.ads | |
| parent | 3968b02a4b1dd783b6a8376175061adc195110f4 (diff) | |
| download | gcc-ad1bea3a4b30482686be9245af78f994722f2fec.zip gcc-ad1bea3a4b30482686be9245af78f994722f2fec.tar.gz gcc-ad1bea3a4b30482686be9245af78f994722f2fec.tar.bz2 | |
[Ada] Stub CUDA_Execute and CUDA_Global pragmas
This commit adds CUDA_Execute and CUDA_Global to the list of allowed
pragmas. It also implements basic validation of said pragmas.
gcc/ada/
* aspects.ads: Declare CUDA_Global as aspect.
* einfo.ads: Use Flag118 for the Is_CUDA_Kernel flag.
(Set_Is_CUDA_Kernel): New function.
(Is_CUDA_Kernel): New function.
* einfo.adb (Set_Is_CUDA_Kernel): New function.
(Is_CUDA_Kernel): New function.
* par-prag.adb (Prag): Ignore Pragma_CUDA_Execute and
Pragma_CUDA_global.
* rtsfind.ads: Define CUDA.Driver_Types.Stream_T and
CUDA.Vector_Types.Dim3 entities
* rtsfind.adb: Define CUDA_Descendant subtype.
(Get_Unit_Name): Handle CUDA_Descendant packages.
* sem_prag.ads: Mark CUDA_Global as aspect-specifying pragma.
* sem_prag.adb (Analyze_Pragma): Validate Pragma_CUDA_Execute and
Pragma_CUDA_Global.
* snames.ads-tmpl: Define Name_CUDA_Execute and Name_CUDA_Global.
Diffstat (limited to 'gcc/ada/sem_prag.ads')
| -rw-r--r-- | gcc/ada/sem_prag.ads | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads index bdc4495..460fc9c 100644 --- a/gcc/ada/sem_prag.ads +++ b/gcc/ada/sem_prag.ads @@ -49,6 +49,7 @@ package Sem_Prag is Pragma_Contract_Cases => True, Pragma_Convention => True, Pragma_CPU => True, + Pragma_CUDA_Global => True, Pragma_Default_Initial_Condition => True, Pragma_Default_Storage_Pool => True, Pragma_Depends => True, |