diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-20 16:25:44 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-20 16:25:44 +0100 |
| commit | 90b51aaf6383fab0d308a3ae238a45d7a50933b4 (patch) | |
| tree | 9e69f6d6604fa710148467001bcae9948127dc8a /gcc/ada/sem_cat.adb | |
| parent | 2838fa930c8c9210ee4a81c1c22a6406a9ce2f0f (diff) | |
| download | gcc-90b51aaf6383fab0d308a3ae238a45d7a50933b4.zip gcc-90b51aaf6383fab0d308a3ae238a45d7a50933b4.tar.gz gcc-90b51aaf6383fab0d308a3ae238a45d7a50933b4.tar.bz2 | |
[multiple changes]
2014-01-20 Robert Dewar <dewar@adacore.com>
* s-taasde.ads, gnat_ugn.texi, s-tadeca.adb, sem_res.adb, s-tadeca.ads:
Minor reformatting and code clean up.
2014-01-20 Arnaud Charlet <charlet@adacore.com>
* sem_cat.adb (Validate_Object_Declaration): Relax semantics
of objects of private type if Relaxed_RM_Semantics.
From-SVN: r206823
Diffstat (limited to 'gcc/ada/sem_cat.adb')
| -rw-r--r-- | gcc/ada/sem_cat.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index 79201c4..92979c7 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -1225,7 +1225,13 @@ package body Sem_Cat is -- means that a pragma Preelaborable_Initialization was -- given for the private type. - if Has_Preelaborable_Initialization (Ent) then + if Relaxed_RM_Semantics then + -- In relaxed mode, do not issue these messages, this + -- is basically similar to the GNAT_Mode test below. + + null; + + elsif Has_Preelaborable_Initialization (Ent) then -- But for the predefined units, we will ignore this -- status unless we are in Ada 2005 mode since we want |