diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-01-26 15:32:43 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-04 05:11:13 -0400 |
| commit | e5e53c73a0cf2e326bbfdacbe94e4a3bb79cd219 (patch) | |
| tree | 4d750b1859b750133f08307bb32e16ca1cb4dc76 /gcc/ada/sinfo.adb | |
| parent | a6b37ab0acd34629a41c694c0f3482c450bbd18b (diff) | |
| download | gcc-e5e53c73a0cf2e326bbfdacbe94e4a3bb79cd219.zip gcc-e5e53c73a0cf2e326bbfdacbe94e4a3bb79cd219.tar.gz gcc-e5e53c73a0cf2e326bbfdacbe94e4a3bb79cd219.tar.bz2 | |
[Ada] Remove OpenACC support
2020-06-04 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* back_end.adb, opt.ads, par-prag.adb, sem_ch5.adb,
sem_prag.adb, sinfo.adb, sinfo.ads, snames.ads-tmpl,
doc/gnat_rm/implementation_defined_pragmas.rst: Remove
experimental support for OpenACC.
* gcc-interface/misc.c, gcc-interface/trans.c,
gcc-interface/lang.opt: Ditto.
* gnat_rm.texi: Regenerate.
gcc/testsuite/
* gnat.dg/openacc1.adb: Remove testcase.
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 22b169f..687d2fe 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -2089,22 +2089,6 @@ package body Sinfo is return Flag16 (N); end Is_Null_Loop; - function Is_OpenAcc_Environment - (N : Node_Id) return Boolean is - begin - pragma Assert (False - or else NT (N).Nkind = N_Loop_Statement); - return Flag13 (N); - end Is_OpenAcc_Environment; - - function Is_OpenAcc_Loop - (N : Node_Id) return Boolean is - begin - pragma Assert (False - or else NT (N).Nkind = N_Loop_Statement); - return Flag14 (N); - end Is_OpenAcc_Loop; - function Is_Overloaded (N : Node_Id) return Boolean is begin @@ -5581,22 +5565,6 @@ package body Sinfo is Set_Flag16 (N, Val); end Set_Is_Null_Loop; - procedure Set_Is_OpenAcc_Environment - (N : Node_Id; Val : Boolean := True) is - begin - pragma Assert (False - or else NT (N).Nkind = N_Loop_Statement); - Set_Flag13 (N, Val); - end Set_Is_OpenAcc_Environment; - - procedure Set_Is_OpenAcc_Loop - (N : Node_Id; Val : Boolean := True) is - begin - pragma Assert (False - or else NT (N).Nkind = N_Loop_Statement); - Set_Flag14 (N, Val); - end Set_Is_OpenAcc_Loop; - procedure Set_Is_Overloaded (N : Node_Id; Val : Boolean := True) is begin |