From: Robert Dewar <dewar@adacore.com>
Date: Mon, 13 Jul 2009 08:07:38 +0000 (+0000)
Subject: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=01e17342864c6703b95bed379229fa92080a76e8;p=gcc.git

Minor reformatting.

From-SVN: r149547
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c2fd750ed6d..481f587973e 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 85408983ddf..94945c7e331 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 639ab8bab28..f6918476f42 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');