diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-05 08:34:58 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-05 08:34:58 +0000 |
| commit | 02aa7a86b804266986111a6a17c19d07a87f73b5 (patch) | |
| tree | 86a8cf5025b337458f59e863eea80a6a2f8a3788 | |
| parent | 34cbcc0f803f77ea751cc81ebf104a325d98dd4d (diff) | |
| download | ppe42-gcc-02aa7a86b804266986111a6a17c19d07a87f73b5.tar.gz ppe42-gcc-02aa7a86b804266986111a6a17c19d07a87f73b5.zip | |
2008-08-05 Thomas Quinot <quinot@adacore.com>
* exp_strm.adb: Minor reformatting (comments)
* sem_ch12.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138674 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 914331d5e05..017a55fe25f 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 9c4befb5d24..6f34cae3c4c 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 a4abddf2b2a..147a097aa07 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); |
