Minor reformatting.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145813 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index 14136fd..b723ea1 100644 (file)
--- 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 (file)
--- 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.