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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 914331d5e051e1499d7893576407deabe22868db..017a55fe25f43da015198c66a839d74ab28cb353 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/ada/exp_strm.adb b/gcc/ada/exp_strm.adb
index 9c4befb5d24ccb06e48c780f94b33d39b3fabbd9..6f34cae3c4c83925ffdf2e9f0dfaed80252246d3 100644 (file)
--- a/gcc/ada/exp_strm.adb
+++ b/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);

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index a4abddf2b2aac0d6f25336b3285b454a76e85761..147a097aa0725a45ecb701c49eb02d2f85f27ab5 100644 (file)
--- a/gcc/ada/sem_ch12.adb
+++ b/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);