exp_strm.adb: Minor reformatting (comments)

2008-08-05  Thomas Quinot  <quinot@adacore.com>

	* exp_strm.adb: Minor reformatting (comments)

	* sem_ch12.adb: Minor reformatting.

From-SVN: r138674

gcc/ada/ChangeLog

+2008-08-05  Thomas Quinot  <quinot@adacore.com>
+
+	* exp_strm.adb: Minor reformatting (comments)
+
+	* sem_ch12.adb: Minor reformatting.
+
 2008-08-05  Robert Dewar  <dewar@adacore.com>
 
 	* sem_ch3.adb: Minor reformatting

gcc/ada/exp_strm.adb

@@ -1119,10 +1119,10 @@ package body Exp_Strm is
                 Object_Definition =>
                   New_Occurrence_Of (Etype (Discr), Loc));
 
-            --  If the this  is an access discriminant, do not perform default
-            --  initialization.  The discriminant is about to get its value
+            --  If this is an access discriminant, do not perform default
+            --  initialization. The discriminant is about to get its value
             --  from Read, and if the type is null excluding we do not want
-            --  spurious warnings on an initial null.
+            --  spurious warnings on an initial null value.
 
             if Is_Access_Type (Etype (Discr)) then
                Set_No_Initialization (Decl);

gcc/ada/sem_ch12.adb

@@ -8366,8 +8366,8 @@ package body Sem_Ch12 is
                 Defining_Identifier => New_Copy (Formal_Id),
                 Constant_Present    => True,
                 Object_Definition   => New_Copy (Def),
-                Expression          => New_Copy_Tree (Default_Expression
-                                        (Formal)));
+                Expression          => New_Copy_Tree
+                                         (Default_Expression (Formal)));
 
             Append (Decl_Node, List);
             Set_Analyzed (Expression (Decl_Node), False);
@@ -8398,9 +8398,9 @@ package body Sem_Ch12 is
                    Constant_Present    => True,
                    Object_Definition   => New_Copy (Def),
                    Expression          =>
-                      Make_Attribute_Reference (Sloc (Formal_Id),
-                        Attribute_Name => Name_First,
-                        Prefix         => New_Copy (Def)));
+                     Make_Attribute_Reference (Sloc (Formal_Id),
+                       Attribute_Name => Name_First,
+                       Prefix         => New_Copy (Def)));
 
                Append (Decl_Node, List);