aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gcc/ada/ChangeLog2
-rw-r--r--gcc/ada/prj.adb11
-rw-r--r--gcc/ada/sem_res.adb2
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');