From: Thomas Quinot <quinot@adacore.com>
Date: Tue, 5 Aug 2008 08:34:58 +0000 (+0000)
Subject: exp_strm.adb: Minor reformatting (comments)
X-Git-Tag: releases/gcc-4.4.0~3380
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=99e81db6df93386ba6d1ed7c2e6d9f504c81cace;p=thirdparty%2Fgcc.git

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 914331d5e051..017a55fe25f4 100644
--- 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 9c4befb5d24c..6f34cae3c4c8 100644
--- 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 a4abddf2b2aa..147a097aa072 100644
--- 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);