diff options
| -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); |
