diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 10:50:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 10:50:32 +0000 |
| commit | 6b34a333d2e034341473e39191d15cde9ab5d389 (patch) | |
| tree | 8050d0260ecd2fab9b992c1040b1f8c709065f48 /gcc/ada/freeze.adb | |
| parent | 960a0aad5d0439ccfd4b3ac58f503c75511e19af (diff) | |
| download | gcc-6b34a333d2e034341473e39191d15cde9ab5d389.tar.gz | |
2012-07-09 Robert Dewar <dewar@adacore.com>
* freeze.adb, prj-util.adb, prj-util.ads, sem_ch13.adb: Minor
reformatting.
2012-07-09 Gary Dismukes <dismukes@adacore.com>
* sem_cat.adb (Check_Categorization_Dependencies):
Allow dependence of both Remote_Types and Remote_Call_Interface
declarations (not just Remote_Types units) on preelaborated
units, but require that the dependence be made via a private
with_clause. Issue a specialized error message.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189371 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index cee956b4839..4637e05f2fb 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -42,7 +42,7 @@ with Nmake; use Nmake; with Opt; use Opt; with Restrict; use Restrict; with Rident; use Rident; -with Rtsfind; use Rtsfind; +with Rtsfind; use Rtsfind; with Sem; use Sem; with Sem_Aux; use Sem_Aux; with Sem_Cat; use Sem_Cat; @@ -1906,6 +1906,7 @@ package body Freeze is Comp := First_Entity (Rec); Prev := Empty; while Present (Comp) loop + -- Deal with delayed aspect specifications for components. The -- analysis of the aspect is required to be delayed to the freeze -- point, thus we analyze the pragma or attribute definition @@ -1914,7 +1915,7 @@ package body Freeze is -- correspond to pragma/attribute definition clause. if Ekind (Comp) = E_Component - and then Has_Delayed_Aspects (Comp) + and then Has_Delayed_Aspects (Comp) then Push_Scope (Rec); |