diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-30 11:50:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-30 11:50:52 +0000 |
| commit | 30fe3fdc205d195f8632894966a8319f1c17fc4b (patch) | |
| tree | d142f637db09aa859f72a46fdd034128fa1bb9a5 /gcc/ada/prj-nmsc.adb | |
| parent | 27121718dadc1c9ae171f2b6ed95ab2d610c87b7 (diff) | |
| download | gcc-30fe3fdc205d195f8632894966a8319f1c17fc4b.tar.gz | |
2012-01-30 Robert Dewar <dewar@adacore.com>
* a-strhas.ads, einfo.adb, einfo.ads, exp_ch7.adb, exp_ch9.adb,
freeze.adb, prj.adb, prj.ads, prj-nmsc.adb, prj-proc.adb, s-llflex.ads,
s-ransee.adb, s-ransee.ads, sem_ch13.adb, sem_dim.adb, sem_prag.adb:
Minor reformatting/code reorganization.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183710 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 0fbcd115f2d..5d2499deb3b 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -2546,18 +2546,17 @@ package body Prj.Nmsc is Project.Decl.Attributes, Shared); - List : String_List_Id; - Element : String_Element; - Name : File_Name_Type; - Iter : Source_Iterator; - Source : Source_Id; - Project_2 : Project_Id; - Other : Source_Id; + List : String_List_Id; + Element : String_Element; + Name : File_Name_Type; + Iter : Source_Iterator; + Source : Source_Id; + Project_2 : Project_Id; + Other : Source_Id; + Unit_Found : Boolean; Interface_ALIs : String_List_Id := Nil_String; - Unit_Found : Boolean; - begin if not Interfaces.Default then @@ -2583,9 +2582,9 @@ package body Prj.Nmsc is Name := Canonical_Case_File_Name (Element.Value); Project_2 := Project; - Big_Loop : - while Project_2 /= No_Project loop + Big_Loop : while Project_2 /= No_Project loop if Project.Qualifier = Aggregate_Library then + -- For an aggregate library we want to consider sources of -- all aggregated projects. @@ -2693,9 +2692,9 @@ package body Prj.Nmsc is Unit_Found := False; Project_2 := Project; - Big_Loop_2 : - while Project_2 /= No_Project loop + Big_Loop_2 : while Project_2 /= No_Project loop if Project.Qualifier = Aggregate_Library then + -- For an aggregate library we want to consider sources of -- all aggregated projects. @@ -4492,8 +4491,8 @@ package body Prj.Nmsc is end if; end if; - -- Check value of attribute Library_Auto_Init and set - -- Lib_Auto_Init accordingly. + -- Check value of attribute Library_Auto_Init and set Lib_Auto_Init + -- accordingly. if Lib_Auto_Init.Default then |