Commit 01e17342 by Robert Dewar Committed by Arnaud Charlet

Minor reformatting.

From-SVN: r149547
parent fb2e11ee
...@@ -12,7 +12,7 @@ ...@@ -12,7 +12,7 @@
* freeze.adb: Minor reformatting * freeze.adb: Minor reformatting
Minor code reorganization (use Nkind_In) 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> 2009-07-11 Eric Botcazou <ebotcazou@adacore.com>
......
...@@ -479,13 +479,18 @@ package body Prj is ...@@ -479,13 +479,18 @@ package body Prj is
In_Imported_Only : Boolean; In_Imported_Only : Boolean;
Base_Name : File_Name_Type) return Source_Id Base_Name : File_Name_Type) return Source_Id
is is
Result : Source_Id := No_Source; Result : Source_Id := No_Source;
procedure Look_For_Sources (Proj : Project_Id; Src : in out Source_Id); procedure Look_For_Sources (Proj : Project_Id; Src : in out Source_Id);
-- Look for Base_Name in the sources of Proj -- 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 procedure Look_For_Sources (Proj : Project_Id; Src : in out Source_Id) is
Iterator : Source_Iterator; Iterator : Source_Iterator;
begin begin
Iterator := For_Each_Source (In_Tree => In_Tree, Project => Proj); Iterator := For_Each_Source (In_Tree => In_Tree, Project => Proj);
while Element (Iterator) /= No_Source loop while Element (Iterator) /= No_Source loop
...@@ -493,6 +498,7 @@ package body Prj is ...@@ -493,6 +498,7 @@ package body Prj is
Src := Element (Iterator); Src := Element (Iterator);
return; return;
end if; end if;
Next (Iterator); Next (Iterator);
end loop; end loop;
end Look_For_Sources; end Look_For_Sources;
...@@ -500,9 +506,12 @@ package body Prj is ...@@ -500,9 +506,12 @@ package body Prj is
procedure For_Imported_Projects is new For_Every_Project_Imported procedure For_Imported_Projects is new For_Every_Project_Imported
(State => Source_Id, Action => Look_For_Sources); (State => Source_Id, Action => Look_For_Sources);
-- Start of processing for Find_Source
begin begin
if In_Imported_Only then if In_Imported_Only then
Look_For_Sources (Project, Result); Look_For_Sources (Project, Result);
if Result = No_Source then if Result = No_Source then
For_Imported_Projects For_Imported_Projects
(By => Project, (By => Project,
......
...@@ -7600,7 +7600,7 @@ package body Sem_Res is ...@@ -7600,7 +7600,7 @@ package body Sem_Res is
-- Generate cross-reference. We needed to wait until full overloading -- Generate cross-reference. We needed to wait until full overloading
-- resolution was complete to do this, since otherwise we can't tell if -- 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 if May_Be_Lvalue (N) then
Generate_Reference (Entity (S), S, 'm'); Generate_Reference (Entity (S), S, 'm');
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment