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 9a82bfe485afab62be8f00eea96816bab837dc90..ce59afba66b9a3334cf38b249dcf8e03d8ad05a4 100644 (file)
--- 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 7befccf11a7ae7451b08433b9ad37d195c61a88d..bfb1ab45bbd6e1cab5b46767717cdfbce5d41cba 100644 (file)
--- 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 c9e90dbc36b21ee603792426d093a2299591470e..ae639dc303a8bc248e0ca5a8752b8d4691f68b86 100644 (file)
--- 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 ab128cfc5430df336f00113418306a99e7c7afad..cfedf758f52da2d8b4a906f34166790276b86e24 100644 (file)
--- 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 9a4fc98d91c8648eb8178eadb982e78e6e77366a..b55556f73ed3f2badf2b0bf3bb4344ded88d7b82 100644 (file)
--- 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 9ed79ff3d94179bc21e923edfbded8f1fa73d630..ebb7f680b76d3b995eedecddd4b086e3c417473b 100644 (file)
--- 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