diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 13:09:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 13:09:52 +0000 |
| commit | b43a577091bfbb4df6ed66fcb603ef46243bef3b (patch) | |
| tree | 8570b4be17dc236ce4fd50453943fe986c7c24b7 /gcc/ada/sem_cat.adb | |
| parent | a940e5c94021c06e58a4fdca57db328ff599307e (diff) | |
| download | gcc-b43a577091bfbb4df6ed66fcb603ef46243bef3b.tar.gz | |
2012-07-09 Robert Dewar <dewar@adacore.com>
* layout.adb, i-cstrea.ads, a-ststio.ads, prj-util.ads, sem_cat.adb,
s-commun.ads, s-ficobl.ads, s-os_lib.ads, s-fileio.ads: Minor
reformatting.
2012-07-09 Eric Botcazou <ebotcazou@adacore.com>
* raise-gcc.c: Update comments. Fix typo.
2012-07-09 Thomas Quinot <quinot@adacore.com>
* einfo.adb, einfo.ads, sem_attr.adb, sem_ch13.adb: Attribute
Scalar_Storage_Order can be defined or queried for array types as well
as record types.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189376 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_cat.adb')
| -rw-r--r-- | gcc/ada/sem_cat.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index e5d4dfbadda..4d8b8ffc5d0 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -224,9 +224,10 @@ package body Sem_Cat is -- AI05-0206. elsif (Unit_Category = Remote_Types - or else Unit_Category = Remote_Call_Interface) - and then (Nkind (N) = N_With_Clause - and then Private_Present (N)) + or else + Unit_Category = Remote_Call_Interface) + and then Nkind (N) = N_With_Clause + and then Private_Present (N) and then Is_Preelaborated (Depended_Entity) then null; @@ -271,7 +272,8 @@ package body Sem_Cat is -- on a preelaborated unit with a normal with_clause. elsif (Unit_Category = Remote_Types - or else Unit_Category = Remote_Call_Interface) + or else + Unit_Category = Remote_Call_Interface) and then Is_Preelaborated (Depended_Entity) then Error_Msg_NE |