Commit b61ee1aa by Arnaud Charlet

Minor reformatting.

From-SVN: r145813
parent a8ea8a9d
......@@ -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;
......
......@@ -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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment