2008-05-27 Robert Dewar <dewar@adacore.com>

	* mlib-prj.adb: Minor reformatting

	* prj-part.adb: Minor reformatting

	* prj.ads: Minor reformatting

	* exp_ch3.adb: Minor reformatting.

	* sem_ch3.ads: Minor reformatting

	* sem_eval.adb: Minor reformatting

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

diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index 71f09e4..b110121 100644 (file)
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -7360,7 +7360,7 @@ package body Exp_Ch3 is
    --       return False;
    --    end if;
 
-   --  or a null statement if the list L is empty.
+   --  or a null statement if the list L is empty
 
    function Make_Eq_If
      (E : Entity_Id;

diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb
index 3730199..7e86fac 100644 (file)
--- a/gcc/ada/mlib-prj.adb
+++ b/gcc/ada/mlib-prj.adb
@@ -322,7 +322,8 @@ package body MLib.Prj is
       --  g-trasym.obj.
 
       Object_Directory_Path : constant String :=
-                          Get_Name_String (Data.Object_Directory.Display_Name);
+                                Get_Name_String
+                                  (Data.Object_Directory.Display_Name);
 
       Standalone   : constant Boolean := Data.Standalone_Library;
 
@@ -1397,8 +1398,8 @@ package body MLib.Prj is
 
                            if In_Main_Object_Directory
                              or else Last < 5
-                             or else C_Filename (1 .. B_Start'Length) /=
-                             B_Start.all
+                             or else
+                               C_Filename (1 .. B_Start'Length) /= B_Start.all
                            then
                               Name_Len := Last;
                               Name_Buffer (1 .. Name_Len) :=
@@ -1439,8 +1440,8 @@ package body MLib.Prj is
                                                    (In_Tree.Units)
                                           loop
                                              if In_Tree.Units.Table
-                                               (Index).File_Names
-                                               (Body_Part).Name /= No_File
+                                                 (Index).File_Names
+                                                   (Body_Part).Name /= No_File
                                              then
                                                 Proj :=
                                                   In_Tree.Units.Table (Index).
@@ -1448,7 +1449,7 @@ package body MLib.Prj is
                                                     (Body_Part).Project;
                                                 Fname :=
                                                   In_Tree.Units.Table (Index).
-                                                  File_Names (Body_Part).Name;
+                                                   File_Names (Body_Part).Name;
 
                                              elsif
                                                In_Tree.Units.Table
@@ -1459,11 +1460,11 @@ package body MLib.Prj is
                                                 Proj :=
                                                   In_Tree.Units.Table
                                                     (Index).File_Names
-                                                    (Specification).Project;
+                                                     (Specification).Project;
                                                 Fname :=
                                                   In_Tree.Units.Table
                                                     (Index).File_Names
-                                                    (Specification).Name;
+                                                     (Specification).Name;
 
                                              else
                                                 Proj := No_Project;
@@ -1473,8 +1474,8 @@ package body MLib.Prj is
 
                                              --  If the source is in the
                                              --  project or a project it
-                                             --  extends, we may put it in the
-                                             --  library.
+                                             --  extends, we may put it in
+                                             --  the library.
 
                                              if Add_It then
                                                 Add_It := Check_Project (Proj);

diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb
index a1d655b..67c9133 100644 (file)
--- a/gcc/ada/prj-part.adb
+++ b/gcc/ada/prj-part.adb
@@ -1867,7 +1867,7 @@ package body Prj.Part is
 
       function Try_Path_Name (Path : String) return String_Access is
          Prj_Path : constant String := Project_Path;
-         First    : Natural := Prj_Path'First;
+         First    : Natural;
          Last     : Natural;
          Result   : String_Access := null;
 
@@ -1887,6 +1887,7 @@ package body Prj.Part is
             --  Locate_Regular_File. So, we try each possible path
             --  successively.
 
+            First := Prj_Path'First;
             while First <= Prj_Path'Last loop
                while First <= Prj_Path'Last
                  and then Prj_Path (First) = Path_Separator

diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads
index edeb3ac..5d8caa7 100644 (file)
--- a/gcc/ada/prj.ads
+++ b/gcc/ada/prj.ads
@@ -1275,7 +1275,7 @@ package Prj is
 
       Config : Project_Configuration;
 
-      Path              : Path_Information := No_Path_Information;
+      Path : Path_Information := No_Path_Information;
       --  The path name of the project file
 
       Virtual : Boolean := False;

diff --git a/gcc/ada/sem_ch3.ads b/gcc/ada/sem_ch3.ads
index a341069..89b85fe 100644 (file)
--- a/gcc/ada/sem_ch3.ads
+++ b/gcc/ada/sem_ch3.ads
@@ -171,6 +171,7 @@ package Sem_Ch3 is
    --  family declaration or a loop iteration. The index is given by an
    --  index declaration (a 'box'), or by a discrete range. The later can
    --  be the name of a discrete type, or a subtype indication.
+   --
    --  Related_Nod is the node where the potential generated implicit types
    --  will be inserted. The 2 last parameters are used for creating the name.
 

diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb
index c03f11a..15c3df8 100644 (file)
--- a/gcc/ada/sem_eval.adb
+++ b/gcc/ada/sem_eval.adb
@@ -3388,7 +3388,7 @@ package body Sem_Eval is
 
       Rewrite (N, Make_Real_Literal (Loc, Realval => Val));
 
-      --  Set link to original named number, for ASIS use.
+      --  Set link to original named number, for ASIS use
 
       Set_Original_Entity (N, Ent);