diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-08-05 08:34:58 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 10:34:58 +0200 |
| commit | 99e81db6df93386ba6d1ed7c2e6d9f504c81cace (patch) | |
| tree | 86a8cf5025b337458f59e863eea80a6a2f8a3788 /gcc | |
| parent | 3894140f5b2e9072bb8ae6b51277ad67b7f3bda1 (diff) | |
| download | gcc-99e81db6df93386ba6d1ed7c2e6d9f504c81cace.zip gcc-99e81db6df93386ba6d1ed7c2e6d9f504c81cace.tar.gz gcc-99e81db6df93386ba6d1ed7c2e6d9f504c81cace.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/exp_strm.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 10 |
3 files changed, 14 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 914331d..017a55f 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 9c4befb..6f34cae 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 a4abddf..147a097 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); |