exp_ch7.adb, [...]: Minor reformatting

2009-04-29  Thomas Quinot  <quinot@adacore.com>

	* exp_ch7.adb, rtsfind.adb: Minor reformatting

	* sem_res.adb: Minor reformatting

From-SVN: r146937

gcc/ada/ChangeLog

 2009-04-29  Thomas Quinot  <quinot@adacore.com>
 
+	* exp_ch7.adb, rtsfind.adb: Minor reformatting
+
+	* sem_res.adb: Minor reformatting
+
+2009-04-29  Thomas Quinot  <quinot@adacore.com>
+
 	* sem_res.adb (Static_Concatenation): An N_Op_Concat with static
 	operands is static only if it is a predefined concatenation operator.
 

gcc/ada/exp_ch7.adb

@@ -453,7 +453,7 @@ package body Exp_Ch7 is
          --  worst-case assumption for runtime files, for efficiency reasons
          --  (see exp_ch3.adb). The reference to RE_List_Controller may have
          --  added a with_clause to the current body. Formally the spec needs
-         --  the with_clause as well, so we add it now, for use by codepeer.
+         --  the with_clause as well, so we add it now, for use by Codepeer.
 
          declare
             Loc         : constant Source_Ptr := Sloc (Typ);

gcc/ada/rtsfind.adb

@@ -1445,9 +1445,7 @@ package body Rtsfind is
                   goto Continue;
                end if;
 
-               Load_RTU
-                 (To_Load,
-                  Use_Setting => In_Use (Cunit_Entity (U)));
+               Load_RTU (To_Load, Use_Setting => In_Use (Cunit_Entity (U)));
                Set_Is_Visible_Child_Unit (RT_Unit_Table (To_Load).Entity);
 
                --  Prevent creation of an implicit 'with' from (for example)