diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-09 11:36:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-09 11:36:25 +0200 |
| commit | b61ee1aa7b06fe0c5d970a943aa8451c1e04c97d (patch) | |
| tree | 0e0700702ffb12f65303eb24ba5c35c0a6fc3976 /gcc | |
| parent | a8ea8a9d3bfb1d48233c298e492acffc2609e421 (diff) | |
| download | gcc-b61ee1aa7b06fe0c5d970a943aa8451c1e04c97d.zip gcc-b61ee1aa7b06fe0c5d970a943aa8451c1e04c97d.tar.gz gcc-b61ee1aa7b06fe0c5d970a943aa8451c1e04c97d.tar.bz2 | |
Minor reformatting.
From-SVN: r145813
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 8 | ||||
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 3 |
2 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 14136fd..b723ea1 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -9148,10 +9148,11 @@ package body Exp_Dist is (RTE (RE_Release_Buffer), Loc), Parameter_Associations => New_List (New_Occurrence_Of (Strm, Loc))), + Make_Simple_Return_Statement (Loc, Expression => New_Occurrence_Of (Res, Loc)))))); - else + else -- declare -- Res : T; -- begin @@ -9179,16 +9180,17 @@ package body Exp_Dist is Prefix => New_Occurrence_Of (Strm, Loc), Attribute_Name => Name_Access), - New_Occurrence_Of (Res, Loc))), + New_Occurrence_Of (Res, Loc))), + Make_Procedure_Call_Statement (Loc, Name => New_Occurrence_Of (RTE (RE_Release_Buffer), Loc), Parameter_Associations => New_List (New_Occurrence_Of (Strm, Loc))), + Make_Simple_Return_Statement (Loc, Expression => New_Occurrence_Of (Res, Loc)))))); - end if; end; end if; diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 0808288..358541a 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -2661,8 +2661,7 @@ package body Sem_Ch4 is Set_Etype (Nam, It.Typ); else - - -- Nnamed access type in the context of a renaming + -- Named access type in the context of a renaming -- declaration with an access definition. Remove -- inapplicable candidate. |