mlib-prj.adb: Minor reformatting

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

From-SVN: r136027

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;

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) :=
@@ -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);

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

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.
 

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