From b61ee1aa7b06fe0c5d970a943aa8451c1e04c97d Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Thu, 9 Apr 2009 11:36:25 +0200
Subject: [PATCH] Minor reformatting.
From-SVN: r145813
---
gcc/ada/exp_dist.adb | 8 +++++---
gcc/ada/sem_ch4.adb | 3 +--
2 files changed, 6 insertions(+), 5 deletions(-)
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.
--
GitLab