diff options
-rw-r--r-- | gcc/ada/ChangeLog | 2 | ||||
-rw-r--r-- | gcc/ada/prj.adb | 11 | ||||
-rw-r--r-- | gcc/ada/sem_res.adb | 2 |
3 files changed, 12 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c2fd750e..481f587 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -12,7 +12,7 @@ * freeze.adb: Minor reformatting Minor code reorganization (use Nkind_In) - * exp_ch6.adb: Minor reformatting + * exp_ch6.adb, prj.adb, sem_res.adb: Minor reformatting 2009-07-11 Eric Botcazou <ebotcazou@adacore.com> diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index 8540898..94945c7 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -479,13 +479,18 @@ package body Prj is In_Imported_Only : Boolean; Base_Name : File_Name_Type) return Source_Id is - Result : Source_Id := No_Source; + Result : Source_Id := No_Source; procedure Look_For_Sources (Proj : Project_Id; Src : in out Source_Id); -- Look for Base_Name in the sources of Proj + ---------------------- + -- Look_For_Sources -- + ---------------------- + procedure Look_For_Sources (Proj : Project_Id; Src : in out Source_Id) is Iterator : Source_Iterator; + begin Iterator := For_Each_Source (In_Tree => In_Tree, Project => Proj); while Element (Iterator) /= No_Source loop @@ -493,6 +498,7 @@ package body Prj is Src := Element (Iterator); return; end if; + Next (Iterator); end loop; end Look_For_Sources; @@ -500,9 +506,12 @@ package body Prj is procedure For_Imported_Projects is new For_Every_Project_Imported (State => Source_Id, Action => Look_For_Sources); + -- Start of processing for Find_Source + begin if In_Imported_Only then Look_For_Sources (Project, Result); + if Result = No_Source then For_Imported_Projects (By => Project, diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 639ab8b..f691847 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -7600,7 +7600,7 @@ package body Sem_Res is -- Generate cross-reference. We needed to wait until full overloading -- resolution was complete to do this, since otherwise we can't tell if - -- we are an lvalue of not. + -- we are an lvalue or not. if May_Be_Lvalue (N) then Generate_Reference (Entity (S), S, 'm'); |