diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-02-10 15:18:47 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-08 03:51:04 -0400 |
| commit | 7907619e7737b6cb38ee334996a7d7a33bb7a1d6 (patch) | |
| tree | 8ee3827a254799a2e8f3be6fdbe405ee077451a5 /gcc/ada/exp_ch6.adb | |
| parent | b4aa6e2978408f0f45fe1074481cfd4044947ab9 (diff) | |
| download | gcc-7907619e7737b6cb38ee334996a7d7a33bb7a1d6.zip gcc-7907619e7737b6cb38ee334996a7d7a33bb7a1d6.tar.gz gcc-7907619e7737b6cb38ee334996a7d7a33bb7a1d6.tar.bz2 | |
[Ada] Remove processing of SPARK_05 restriction
2020-06-08 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* exp_aggr.adb, exp_ch6.adb, par-ch11.adb, par-ch6.adb,
par-ch7.adb, par-prag.adb, restrict.adb, restrict.ads,
scans.ads, scng.adb, sem_aggr.adb, sem_attr.adb, sem_ch11.adb,
sem_ch12.adb, sem_ch3.adb, sem_ch3.ads, sem_ch4.adb,
sem_ch5.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, sem_ch9.adb,
sem_res.adb, sem_util.adb, sem_util.ads, snames.ads-tmpl,
gnatbind.adb, libgnat/s-rident.ads,
doc/gnat_rm/standard_and_implementation_defined_restrictions.rst:
Remove processing of SPARK_05 restriction.
* gnat_rm.texi: Regenerate.
* opt.ads: Remove processing of old checksum which is now
handled by gprbuild directly.
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 11980a6..4f8b4717 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -6244,33 +6244,7 @@ package body Exp_Ch6 is Prot_Decl : Node_Id; Prot_Id : Entity_Id; - -- Start of processing for Expand_N_Subprogram_Declaration - begin - -- In SPARK, subprogram declarations are only allowed in package - -- specifications. - - if Nkind (Parent (N)) /= N_Package_Specification then - if Nkind (Parent (N)) = N_Compilation_Unit then - Check_SPARK_05_Restriction - ("subprogram declaration is not a library item", N); - - elsif Present (Next (N)) - and then Nkind (Next (N)) = N_Pragma - and then Get_Pragma_Id (Next (N)) = Pragma_Import - then - -- In SPARK, subprogram declarations are also permitted in - -- declarative parts when immediately followed by a corresponding - -- pragma Import. We only check here that there is some pragma - -- Import. - - null; - else - Check_SPARK_05_Restriction - ("subprogram declaration is not allowed here", N); - end if; - end if; - -- Deal with case of protected subprogram. Do not generate protected -- operation if operation is flagged as eliminated. |