diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-26 13:37:29 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-26 13:37:29 +0000 |
| commit | e9e5d08c477f2e602b0a484c36665be42d1760eb (patch) | |
| tree | a0ef882e5129e5a8a53a1340365a9896fa87e4c4 /gcc/ada/einfo.adb | |
| parent | 038ce8c6f65ef3a1f6cfd75f1713cdea0d1d19c6 (diff) | |
| download | gcc-e9e5d08c477f2e602b0a484c36665be42d1760eb.tar.gz | |
2015-05-26 Ed Schonberg <schonberg@adacore.com>
* sinfo.ads: Minor reformatting.
* sem_aux.ads: Clarify use of First_Discriminant.
* sem_ch4.adb (Analyze_Explicit_Dereference): The use of a limited
view is replaced with the non-limited view in an instance body,
where the enclosing unit must have a regular with_clause on the
relevant unit.
* sem_ch12.adb (Install_Body): Freeze instantation after its
body. Remove useless freeze nodes for incomplete actuals to
prevent multiple generation of internal operations.
(Instantiate_Package_Body): Set sloc of body appropriately when
there are incomplete actuals and the instance body is placed in
the body of the enclosing unit.
* errout.ads: Consistent punctuation, better alignment and trivial
typos in comments.
* err_vars.ads: Fix typo.
2015-05-26 Eric Botcazou <ebotcazou@adacore.com>
* sem_ch8.adb (Analyze_Object_Renaming): Lift restriction on
components of Volatile_Full_Access objects.
2015-05-26 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Is_Non_Overriding_Operation,
Get_Generic_Parent_Type): Handle properly the case of a derived
scalar type by using the first subtype rather than its generated
anonymous base type.
2015-05-26 Eric Botcazou <ebotcazou@adacore.com>
* einfo.adb (Write_Field17_Name): Move E_Incomplete_Subtype
case to...
(Write_Field19_Name): ...here.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223696 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/einfo.adb')
| -rw-r--r-- | gcc/ada/einfo.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index bf25bfb1855..eb57b6996d8 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -9484,11 +9484,6 @@ package body Einfo is when Modular_Integer_Kind => Write_Str ("Modulus"); - when E_Incomplete_Subtype => - if From_Limited_With (Id) then - Write_Str ("Non_Limited_View"); - end if; - when E_Component => Write_Str ("Prival"); @@ -9584,6 +9579,11 @@ package body Einfo is E_Incomplete_Type => Write_Str ("Non_Limited_View"); + when E_Incomplete_Subtype => + if From_Limited_With (Id) then + Write_Str ("Non_Limited_View"); + end if; + when E_Array_Type => Write_Str ("Default_Component_Value"); |