From 3e6845df1eb61c3c8d779e5590811ed1cbd04270 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 11 Jun 2018 09:18:27 +0000 Subject: [PATCH] [Ada] Minor reformatting 2018-06-11 Arnaud Charlet gcc/ada/ * exp_ch3.adb, exp_unst.adb, inline.adb, sem_prag.adb: Minor reformatting. From-SVN: r261416 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/exp_ch3.adb | 6 +++--- gcc/ada/exp_unst.adb | 2 +- gcc/ada/inline.adb | 4 ++-- gcc/ada/sem_prag.adb | 8 ++++---- 5 files changed, 15 insertions(+), 10 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ae264917914..3314303f62c 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-06-11 Arnaud Charlet + + * exp_ch3.adb, exp_unst.adb, inline.adb, sem_prag.adb: Minor + reformatting. + 2018-06-11 Yannick Moy * doc/gnat_rm/implementation_defined_pragmas.rst: Add Suppressible diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 354d6baf9e2..9281896d131 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -9220,9 +9220,9 @@ package body Exp_Ch3 is end loop; end Make_Controlling_Function_Wrappers; - ------------------- - -- Make_Eq_Body -- - ------------------- + ------------------ + -- Make_Eq_Body -- + ------------------ function Make_Eq_Body (Typ : Entity_Id; diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 1cdb2a576f0..bcdbfe72d0d 100644 --- a/gcc/ada/exp_unst.adb +++ b/gcc/ada/exp_unst.adb @@ -826,7 +826,7 @@ package body Exp_Unst is end if; -- Generic associations are not analyzed: the actuals are - -- transferred to renaming qnd subtype declarations that + -- transferred to renaming and subtype declarations that -- are the ones that must be examined. when N_Generic_Association => diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 22fa01f9f1b..f615e650454 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -1098,8 +1098,8 @@ package body Inline is if not Has_Single_Return (N) -- Skip inlining if the function returns an unconstrained type - -- using an extended return statement since this part of the - -- new inlining model which is not yet supported by the current + -- using an extended return statement, since this part of the + -- new inlining model is not yet supported by the current -- implementation. ??? or else (Returns_Unconstrained_Type (Spec_Id) diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 3f58f570676..3065dabc09d 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -3200,7 +3200,7 @@ package body Sem_Prag is -- The item appears in the visible state space of some package. In -- general this scenario does not warrant Part_Of except when the - -- package is a non-generic private child unit and the encapsulating + -- package is a nongeneric private child unit and the encapsulating -- state is declared in a parent unit or a public descendant of that -- parent unit. @@ -3210,7 +3210,7 @@ package body Sem_Prag is and then Is_Private_Descendant (Pack_Id) then -- A variable or state abstraction which is part of the visible - -- state of a non-generic private child unit or its public + -- state of a nongeneric private child unit or its public -- descendants must have its Part_Of indicator specified. The -- Part_Of indicator must denote a state declared by either the -- parent unit of the private unit or by a public descendant of @@ -3252,7 +3252,7 @@ package body Sem_Prag is end if; -- Indicator Part_Of is not needed when the related package is - -- not a non-generic private child unit or a public descendant + -- not a nongeneric private child unit or a public descendant -- thereof. else @@ -28833,7 +28833,7 @@ package body Sem_Prag is -- In general an item declared in the visible state space of a package -- does not require a Part_Of indicator. The only exception is when the - -- related package is a non-generic private child unit in which case + -- related package is a nongeneric private child unit, in which case -- Part_Of must denote a state in the parent unit or in one of its -- descendants. -- 2.30.2