mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 04:00:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

exp_strm.adb: Minor reformatting (comments)

Browse Source 
2008-08-05  Thomas Quinot  <quinot@adacore.com>

	* exp_strm.adb: Minor reformatting (comments)

	* sem_ch12.adb: Minor reformatting.

From-SVN: r138674
This commit is contained in:
Thomas Quinot 2008-08-05 08:34:58 +00:00 committed by Arnaud Charlet
parent 3894140f5b
commit 99e81db6df
3 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -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

6
gcc/ada/exp_strm.adb
View File

@ -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);

10
gcc/ada/sem_ch12.adb
View File

@ -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);