Minor reformatting.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149547 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c2fd750..481f587 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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');