From 8ca1ee5da35c8d81f9ae5c0b2369e01d955bfed5 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 3 Jan 2013 11:52:31 +0100 Subject: [multiple changes] 2013-01-03 Thomas Quinot * 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 * exp_ch3.adb: Minor reformatting. 2013-01-03 Olivier Hainque * tracebak.c: Reinstate changes to support ppc-lynx178. 2013-01-03 Ed Schonberg * atree.ads: Minor reformatting and documentation enhancement. From-SVN: r194845 --- gcc/ada/sem_elab.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada/sem_elab.adb') diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 125caef..4c86ce3 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -2551,7 +2551,7 @@ package body Sem_Elab is -- visible, and we can set the elaboration flag. if Is_Immediately_Visible (Scop) - or else (Is_Child_Unit (Scop) and then Is_Visible_Child_Unit (Scop)) + or else (Is_Child_Unit (Scop) and then Is_Visible_Lib_Unit (Scop)) then Activate_Elaborate_All_Desirable (Call, Scop); Set_Suppress_Elaboration_Warnings (Scop, True); -- cgit v1.1