Minor reformatting.

From-SVN: r149547

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>
 

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,

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');