Minor reformatting.

From-SVN: r149547

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c2fd750ed6ddd35e2d807eea98da2daf274d0418..481f587973e35605eba2a60c57ce9261ac36f8d3 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 85408983ddf8cfe8d2780191076974d20a0dafe5..94945c7e3310795ba5624dfdddc7f036f8897cac 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 639ab8bab286289864eb42503b9c80f857f6a181..f6918476f4281ccccf7b41e6e797181246dd8234 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');