exp_ch9.adb, [...]: Minor reformatting.

2017-01-12  Gary Dismukes  <dismukes@adacore.com>

	* exp_ch9.adb, s-secsta.adb, snames.ads-tmpl, exp_ch3.adb: Minor
	reformatting.
	* debug.adb: Minor comment fixes.

From-SVN: r244360

6 files changed, 15 insertions, 11 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 9a82bfe..ce59afb 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2017-01-12  Gary Dismukes  <dismukes@adacore.com>
+
+	* exp_ch9.adb, s-secsta.adb, snames.ads-tmpl, exp_ch3.adb: Minor
+	reformatting.
+	* debug.adb: Minor comment fixes.
+
 2017-01-12  Arnaud Charlet  <charlet@adacore.com>
 
 	* sem_util.adb (Unique_Entity): For concurrent
diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb
index 7befccf..bfb1ab4 100644
--- a/gcc/ada/debug.adb
+++ b/gcc/ada/debug.adb
@@ -376,8 +376,7 @@ package body Debug is
    --       general Elaborate_All is still required because of nested calls.
 
    --  dE   Apply compile time elaboration checking for with relations between
-   --       predefined units. Normally no checks are made (it seems that at
-   --       least on the SGI, such checks run into trouble).
+   --       predefined units. Normally no checks are made.
 
    --  dF   Front end data layout enabled. Normally front end data layout
    --       is only enabled if the target parameter Backend_Layout is False.
@@ -407,7 +406,7 @@ package body Debug is
    --  dL   Output trace information on elaboration checking. This debug
    --       switch causes output to be generated showing each call or
    --       instantiation as it is checked, and the progress of the recursive
-   --       trace through calls at elaboration time.
+   --       trace through elaboration calls at compile time.
 
    --  dM   Assume all variables have been modified, and ignore current value
    --       indications. This debug flag disconnects the tracking of constant
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index c9e90db..ae639dc 100644
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -2730,10 +2730,9 @@ package body Exp_Ch3 is
                      Actions := Build_Assignment (Id, Expression (Decl));
                   end if;
 
-               --  CPU, Dispatching_Domain, Priority and
-               --  Secondary_Stack_Size components are filled with the
-               --  corresponding rep item expression of the concurrent
-               --  type (if any).
+               --  CPU, Dispatching_Domain, Priority, and Secondary_Stack_Size
+               --  components are filled in with the corresponding rep-item
+               --  expression of the concurrent type (if any).
 
                elsif Ekind (Scope (Id)) = E_Record_Type
                  and then Present (Corresponding_Concurrent_Type (Scope (Id)))
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index ab128cf..cfedf75 100644
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -11931,8 +11931,8 @@ package body Exp_Ch9 is
                        Get_Rep_Pragma (TaskId, Name_Storage_Size))))))));
       end if;
 
-      --  Add the _Secondary_Stack_Size component if a
-      --  Secondary_Stack_Size rep item is present.
+      --  Add the _Secondary_Stack_Size component if a Secondary_Stack_Size
+      --  rep item is present.
 
       if Has_Rep_Item (TaskId, Name_Secondary_Stack_Size,
                        Check_Parents => False)
diff --git a/gcc/ada/s-secsta.adb b/gcc/ada/s-secsta.adb
index 9a4fc98..b55556f 100644
--- a/gcc/ada/s-secsta.adb
+++ b/gcc/ada/s-secsta.adb
@@ -171,7 +171,7 @@ package body System.Secondary_Stack is
    --  Convert from address stored in task data structures
 
    ----------------------------------
-   -- Minumum_Secondary_Stack_Size --
+   -- Minimum_Secondary_Stack_Size --
    ----------------------------------
 
    function Minimum_Secondary_Stack_Size return Natural is
diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl
index 9ed79ff..ebb7f68 100644
--- a/gcc/ada/snames.ads-tmpl
+++ b/gcc/ada/snames.ads-tmpl
@@ -1054,7 +1054,7 @@ package Snames is
    --  names used internally by GNAT in order to deal with delayed aspects
    --  (Aspect_CPU, Aspect_Dispatching_Domain, Aspect_Interrupt_Priority,
    --  Aspect_Secondary_Stack_Size) that don't have corresponding pragmas or
-   --  user-referencable attributes.
+   --  user-referenceable attributes.
 
    --  It is convenient to have these internal attributes available for
    --  processing the aspects, since the normal approach is to convert an