git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Minor reformatting. 

From-SVN: r145813
This commit is contained in:
Arnaud Charlet 2009-04-09 11:36:25 +02:00
parent a8ea8a9d3b
commit b61ee1aa7b
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/exp_dist.adb
View File

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

3
gcc/ada/sem_ch4.adb
View File

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