From b61ee1aa7b06fe0c5d970a943aa8451c1e04c97d Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 9 Apr 2009 11:36:25 +0200 Subject: Minor reformatting. From-SVN: r145813 --- gcc/ada/exp_dist.adb | 8 +++++--- gcc/ada/sem_ch4.adb | 3 +-- 2 files changed, 6 insertions(+), 5 deletions(-) (limited to 'gcc') 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. -- cgit v1.1