From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Thu, 9 Apr 2009 09:36:25 +0000 (+0200)
Subject: Minor reformatting.
X-Git-Tag: releases/gcc-4.5.0~6757
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=b61ee1aa7b06fe0c5d970a943aa8451c1e04c97d;p=thirdparty%2Fgcc.git

Minor reformatting.

From-SVN: r145813
---

diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index 14136fd4acf0..b723ea1cc982 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 0808288fab3b..358541afa645 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.