[Ada] Minor reformatting

2018-06-11  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* exp_ch3.adb, exp_unst.adb, inline.adb, sem_prag.adb: Minor
	reformatting.

From-SVN: r261416

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ae2649179149791b0e929337fea00bd7997c0acf..3314303f62ca81b31c3c53d6b6d4fd49d09842e9 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-06-11  Arnaud Charlet  <charlet@adacore.com>
+
+       * exp_ch3.adb, exp_unst.adb, inline.adb, sem_prag.adb: Minor
+       reformatting.
+
 2018-06-11  Yannick Moy  <moy@adacore.com>
 
        * doc/gnat_rm/implementation_defined_pragmas.rst: Add Suppressible

diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index 354d6baf9e268cbc61dc034fbb7671a6e04c3d80..9281896d1312d19e9be986097be48852cc8c3092 100644 (file)
--- 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 1cdb2a576f044deada1dcea965beffffbaf1be70..bcdbfe72d0d5169e4105d9810a3f30323af6c1bd 100644 (file)
--- 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 22fa01f9f1b49325ac1cb600a16e52fc9c5f3640..f615e65045413f85717691649630512c9b364835 100644 (file)
--- 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 3f58f570676704f9d16603c80e46655a5bb3d190..3065dabc09df3fbccf9ab055c8c5c0aeb6019431 100644 (file)
--- 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.