diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2009-07-13 09:37:28 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 11:37:28 +0200 |
| commit | 959dd7d8a085ca0f7bab2d37069559e98e63ebc1 (patch) | |
| tree | 01093db3683cb59864162cc2613f13425ec775f6 /gcc/ada/exp_dist.adb | |
| parent | 23c4ff9bd4ea80f3c034f1a2c4318073513bed9f (diff) | |
| download | gcc-959dd7d8a085ca0f7bab2d37069559e98e63ebc1.zip gcc-959dd7d8a085ca0f7bab2d37069559e98e63ebc1.tar.gz gcc-959dd7d8a085ca0f7bab2d37069559e98e63ebc1.tar.bz2 | |
lib.adb, [...]: Update comments.
* lib.adb, make.adb, mlib.adb, exp_dist.adb: Update comments.
Minor reformatting.
From-SVN: r149562
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index fa4327a..f13c8a4 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -874,7 +874,7 @@ package body Exp_Dist is -- includes all limited types), append code to Stmts performing the -- equivalent of: -- Target := Typ'From_Any (N) - + -- -- or, if Target is Empty: -- return Typ'From_Any (N) @@ -8439,21 +8439,21 @@ package body Exp_Dist is Prefix => New_Occurrence_Of (Typ, Loc), Attribute_Name => Name_Input, Expressions => New_List ( - Make_Attribute_Reference (Loc, - Prefix => New_Occurrence_Of (Strm, Loc), - Attribute_Name => Name_Access))); + Make_Attribute_Reference (Loc, + Prefix => New_Occurrence_Of (Strm, Loc), + Attribute_Name => Name_Access))); - if Present (Target) then - -- Target := Typ'Input (Strm'Access) + -- Target := Typ'Input (Strm'Access) + if Present (Target) then Append_To (Stms, Make_Assignment_Statement (Loc, Name => New_Occurrence_Of (Target, Loc), Expression => Expr)); - else - -- return Typ'Input (Strm'Access); + -- return Typ'Input (Strm'Access); + else Append_To (Stms, Make_Simple_Return_Statement (Loc, Expression => Expr)); @@ -8469,6 +8469,7 @@ package body Exp_Dist is Temp : constant Entity_Id := Make_Defining_Identifier (Loc, New_Internal_Name ('R')); + begin Read_Call_List := New_List; Expr := New_Occurrence_Of (Temp, Loc); @@ -8500,6 +8501,7 @@ package body Exp_Dist is Expr))); if No (Target) then + -- return Temp Append_To (Read_Call_List, @@ -8796,10 +8798,10 @@ package body Exp_Dist is Build_From_Any_Call (Ctyp, Build_Get_Aggregate_Element (Loc, Any => Any, - TC => Build_TypeCode_Call (Loc, - Ctyp, Decls), - Idx => Make_Integer_Literal (Loc, - Counter)), + TC => + Build_TypeCode_Call (Loc, Ctyp, Decls), + Idx => + Make_Integer_Literal (Loc, Counter)), Decls))); else |