From: Gary Dismukes <dismukes@adacore.com>
Date: Thu, 12 Jan 2017 13:54:16 +0000 (+0000)
Subject: exp_ch9.adb, [...]: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4bfe4a99e083e595ea1abca076b5a960803deaf8;p=gcc.git

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
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 9a82bfe485a..ce59afba66b 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 7befccf11a7..bfb1ab45bbd 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 c9e90dbc36b..ae639dc303a 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 ab128cfc543..cfedf758f52 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 9a4fc98d91c..b55556f73ed 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 9ed79ff3d94..ebb7f680b76 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