diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-03 10:52:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-03 10:52:31 +0000 |
| commit | 25d7574bcf57e89237f41bcf625de9328730ba44 (patch) | |
| tree | f3c3d8d086af3965e2a9c9812342b73df457703d /gcc/ada/sem_ch8.adb | |
| parent | 810b80edadcd62eb060af49c9af98f371146780a (diff) | |
| download | gcc-25d7574bcf57e89237f41bcf625de9328730ba44.tar.gz | |
2013-01-03 Thomas Quinot <quinot@adacore.com>
* sem_ch7.adb, sem_ch10.adb, einfo.adb, einfo.ads, sem_ch12.adb,
rtsfind.adb, sem_elab.adb, sem_ch4.adb, sem_ch8.adb
(Einfo.Is_Visible_Child_Unit, Einfo.Set_Is_Visible_Child_Unit):
Rename to Is_Visible_Lib_Unit, Set_Is_Visible_Lib_Unit, and
update spec accordingly (now also applies to root library units).
(Sem_Ch10.Analyze_Subunit.Analyze_Subunit_Context): Toggle above flag
on root library units, not only child units.
(Sem_Ch10.Install[_Limited]_Withed_Unit): Same.
(Sem_Ch10.Remove_Unit_From_Visibility): Reset Is_Visible_Lib_Unit
even for root library units.
(Sem_Ch8.Find_Expanded_Name): A selected component form whose prefix is
Standard is an expanded name for a root library unit.
2013-01-03 Thomas Quinot <quinot@adacore.com>
* exp_ch3.adb: Minor reformatting.
2013-01-03 Olivier Hainque <hainque@adacore.com>
* tracebak.c: Reinstate changes to support ppc-lynx178.
2013-01-03 Ed Schonberg <schonberg@adacore.com>
* atree.ads: Minor reformatting and documentation enhancement.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194845 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 50758e33a51..0a046def1cf 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -5143,8 +5143,8 @@ package body Sem_Ch8 is end if; if Is_New_Candidate then - if Is_Child_Unit (Id) then - exit when Is_Visible_Child_Unit (Id) + if Is_Child_Unit (Id) or else P_Name = Standard_Standard then + exit when Is_Visible_Lib_Unit (Id) or else Is_Immediately_Visible (Id); else @@ -5334,7 +5334,7 @@ package body Sem_Ch8 is and then Is_Compilation_Unit (Homonym (P_Name)) and then (Is_Immediately_Visible (Homonym (P_Name)) - or else Is_Visible_Child_Unit (Homonym (P_Name))) + or else Is_Visible_Lib_Unit (Homonym (P_Name))) then declare H : constant Entity_Id := Homonym (P_Name); @@ -7685,7 +7685,7 @@ package body Sem_Ch8 is if Is_Child_Unit (E) then if not From_With_Type (E) then Set_Is_Immediately_Visible (E, - Is_Visible_Child_Unit (E) or else In_Open_Scopes (E)); + Is_Visible_Lib_Unit (E) or else In_Open_Scopes (E)); else pragma Assert @@ -7718,7 +7718,7 @@ package body Sem_Ch8 is while Present (E) loop if Is_Child_Unit (E) then Set_Is_Immediately_Visible (E, - Is_Visible_Child_Unit (E) or else In_Open_Scopes (E)); + Is_Visible_Lib_Unit (E) or else In_Open_Scopes (E)); end if; Next_Entity (E); @@ -8030,7 +8030,7 @@ package body Sem_Ch8 is if not Is_Hidden (Id) and then ((not Is_Child_Unit (Id)) - or else Is_Visible_Child_Unit (Id)) + or else Is_Visible_Lib_Unit (Id)) then Set_Is_Potentially_Use_Visible (Id); @@ -8050,7 +8050,7 @@ package body Sem_Ch8 is while Present (Id) loop if Is_Child_Unit (Id) - and then Is_Visible_Child_Unit (Id) + and then Is_Visible_Lib_Unit (Id) then Set_Is_Potentially_Use_Visible (Id); end if; |