[Ada] Spelling fixes and minor reformatting

2018-12-03  Gary Dismukes  <dismukes@adacore.com>

gcc/ada/

	* exp_ch3.adb, libgnarl/s-taasde.adb, libgnarl/s-taenca.adb,
	libgnarl/s-tarest.adb, libgnarl/s-tasini.adb,
	libgnarl/s-taskin.ads, libgnarl/s-tasren.adb,
	libgnarl/s-tassta.adb, libgnarl/s-tasuti.adb: Spelling fixes and
	minor reformatting.

From-SVN: r266756

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 132cc0a..73627f0 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+2018-12-03  Gary Dismukes  <dismukes@adacore.com>
+
+       * exp_ch3.adb, libgnarl/s-taasde.adb, libgnarl/s-taenca.adb,
+       libgnarl/s-tarest.adb, libgnarl/s-tasini.adb,
+       libgnarl/s-taskin.ads, libgnarl/s-tasren.adb,
+       libgnarl/s-tassta.adb, libgnarl/s-tasuti.adb: Spelling fixes and
+       minor reformatting.
+
 2018-12-03  Eric Botcazou  <ebotcazou@adacore.com>
 
        * exp_aggr.adb (Convert_To_Positional): Use

diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index 35b8fe3..22ea006 100644 (file)
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -6589,7 +6589,7 @@ package body Exp_Ch3 is
 
             --  An aggregate that must be built in place is not resolved and
             --  expanded until the enclosing construct is expanded. This will
-            --  happen when the aggregqte is limited and the declared object
+            --  happen when the aggregate is limited and the declared object
             --  has a following address clause.
 
             if Is_Limited_Type (Typ) and then not Analyzed (Expr) then

diff --git a/gcc/ada/libgnarl/s-taasde.adb b/gcc/ada/libgnarl/s-taasde.adb
index 4f5b3e4..ae2eeca 100644 (file)
--- a/gcc/ada/libgnarl/s-taasde.adb
+++ b/gcc/ada/libgnarl/s-taasde.adb
@@ -106,7 +106,7 @@ package body System.Tasking.Async_Delays is
 
    begin
       --  A delay block level of Level_No_Pending_Abort indicates the delay
-      --  has been cancelled. If the delay has already been canceled, there is
+      --  has been canceled. If the delay has already been canceled, there is
       --  nothing more to be done.
 
       if D.Level = Level_No_Pending_Abort then
@@ -181,8 +181,8 @@ package body System.Tasking.Async_Delays is
 
    --  Allocate a queue element for the wakeup time T and put it in the
    --  queue in wakeup time order.  Assume we are on an asynchronous
-   --  select statement with delay trigger.  Put the calling task to
-   --  sleep until either the delay expires or is cancelled.
+   --  select statement with delay trigger. Put the calling task to
+   --  sleep until either the delay expires or is canceled.
 
    --  We use one entry call record for this delay, since we have
    --  to increment the ATC nesting level, but since it is not a

diff --git a/gcc/ada/libgnarl/s-taenca.adb b/gcc/ada/libgnarl/s-taenca.adb
index 965bd1d..9073f45 100644 (file)
--- a/gcc/ada/libgnarl/s-taenca.adb
+++ b/gcc/ada/libgnarl/s-taenca.adb
@@ -615,7 +615,7 @@ package body System.Tasking.Entry_Calls is
       Call    : Entry_Call_Link)
    is
    begin
-      pragma Assert (Self_ID.ATC_Nesting_Level > Level_No_ATC_Occuring);
+      pragma Assert (Self_ID.ATC_Nesting_Level > Level_No_ATC_Occurring);
       pragma Assert (Call.Mode = Asynchronous_Call);
 
       STPO.Write_Lock (Self_ID);

diff --git a/gcc/ada/libgnarl/s-tarest.adb b/gcc/ada/libgnarl/s-tarest.adb
index 1966a91..f3db81e 100644 (file)
--- a/gcc/ada/libgnarl/s-tarest.adb
+++ b/gcc/ada/libgnarl/s-tarest.adb
@@ -563,7 +563,7 @@ package body System.Tasking.Restricted.Stages is
       end if;
 
       --  Only the first element of the Entry_Calls array is used when the
-      --  Ravenscar Profile is active as no asynchronous transfer of control
+      --  Ravenscar Profile is active, as no asynchronous transfer of control
       --  is allowed.
 
       Created_Task.Entry_Calls (Created_Task.Entry_Calls'First) :=

diff --git a/gcc/ada/libgnarl/s-tasini.adb b/gcc/ada/libgnarl/s-tasini.adb
index 2164c19..3512682 100644 (file)
--- a/gcc/ada/libgnarl/s-tasini.adb
+++ b/gcc/ada/libgnarl/s-tasini.adb
@@ -440,9 +440,9 @@ package body System.Tasking.Initialization is
             when Activating
                | Runnable
             =>
-               if T.ATC_Nesting_Level > Level_No_ATC_Occuring then
+               if T.ATC_Nesting_Level > Level_No_ATC_Occurring then
                   --  This scenario occurs when an asynchronous protected entry
-                  --  call is canceld during a requeue with abort.
+                  --  call is canceled during a requeue with abort.
 
                   T.Entry_Calls
                     (T.ATC_Nesting_Level).Cancellation_Attempted := True;
@@ -467,7 +467,7 @@ package body System.Tasking.Initialization is
                Wakeup (T, T.Common.State);
 
             when Entry_Caller_Sleep  =>
-               pragma Assert (T.ATC_Nesting_Level > Level_No_ATC_Occuring);
+               pragma Assert (T.ATC_Nesting_Level > Level_No_ATC_Occurring);
 
                T.Entry_Calls
                  (T.ATC_Nesting_Level).Cancellation_Attempted := True;

diff --git a/gcc/ada/libgnarl/s-taskin.ads b/gcc/ada/libgnarl/s-taskin.ads
index 1bc33d1..657d247 100644 (file)
--- a/gcc/ada/libgnarl/s-taskin.ads
+++ b/gcc/ada/libgnarl/s-taskin.ads
@@ -826,7 +826,7 @@ package System.Tasking is
    --  ATC_Level of a task that has "completed". A task reaches the completed
    --  state after an abort, exception propagation, or normal exit.
 
-   Level_No_ATC_Occuring : constant ATC_Level_Base := 0;
+   Level_No_ATC_Occurring : constant ATC_Level_Base := 0;
    --  ATC_Level of a task not executing a entry call or an asynchronous
    --  select statement.
 
@@ -834,11 +834,11 @@ package System.Tasking is
    --  ATC_Level when there is no pending abort
 
    subtype ATC_Level is ATC_Level_Base range
-     Level_No_ATC_Occuring .. Level_No_Pending_Abort - 1;
+     Level_No_ATC_Occurring .. Level_No_Pending_Abort - 1;
    --  Nested ATC_Levels valid during the execution of a task
 
    subtype ATC_Level_Index is ATC_Level range
-     Level_No_ATC_Occuring + 1 .. ATC_Level'Last;
+     Level_No_ATC_Occurring + 1 .. ATC_Level'Last;
    --  ATC_Levels valid when a task is executing an entry call or asynchronous
    --  task control statements.
 
@@ -1101,7 +1101,7 @@ package System.Tasking is
 
       --  Beginning of counts
 
-      ATC_Nesting_Level : ATC_Level := Level_No_ATC_Occuring;
+      ATC_Nesting_Level : ATC_Level := Level_No_ATC_Occurring;
       --  The dynamic level of ATC nesting (currently executing nested
       --  asynchronous select statements) in this task.
 

diff --git a/gcc/ada/libgnarl/s-tasren.adb b/gcc/ada/libgnarl/s-tasren.adb
index 5ce200a..a7b285f 100644 (file)
--- a/gcc/ada/libgnarl/s-tasren.adb
+++ b/gcc/ada/libgnarl/s-tasren.adb
@@ -206,7 +206,7 @@ package body System.Tasking.Rendezvous is
          if Self_Id.Common.Call /= null then
             Caller := Self_Id.Common.Call.Self;
 
-            pragma Assert (Caller.ATC_Nesting_Level > Level_No_ATC_Occuring);
+            pragma Assert (Caller.ATC_Nesting_Level > Level_No_ATC_Occurring);
 
             Uninterpreted_Data :=
               Caller.Entry_Calls (Caller.ATC_Nesting_Level).Uninterpreted_Data;

diff --git a/gcc/ada/libgnarl/s-tassta.adb b/gcc/ada/libgnarl/s-tassta.adb
index b48f238..171baed 100644 (file)
--- a/gcc/ada/libgnarl/s-tassta.adb
+++ b/gcc/ada/libgnarl/s-tassta.adb
@@ -1982,7 +1982,7 @@ package body System.Tasking.Stages is
            Self_ID.Master_Of_Task .. Self_ID.Master_Of_Task + 3);
       pragma Assert (Self_ID.Common.Wait_Count = 0);
       pragma Assert (Self_ID.Open_Accepts = null);
-      pragma Assert (Self_ID.ATC_Nesting_Level = Level_No_ATC_Occuring);
+      pragma Assert (Self_ID.ATC_Nesting_Level = Level_No_ATC_Occurring);
 
       pragma Debug (Debug.Trace (Self_ID, "V_Complete_Task", 'C'));
 

diff --git a/gcc/ada/libgnarl/s-tasuti.adb b/gcc/ada/libgnarl/s-tasuti.adb
index f3708fd..58dc86f 100644 (file)
--- a/gcc/ada/libgnarl/s-tasuti.adb
+++ b/gcc/ada/libgnarl/s-tasuti.adb
@@ -206,7 +206,7 @@ package body System.Tasking.Utilities is
 
    procedure Exit_One_ATC_Level (Self_ID : Task_Id) is
    begin
-      pragma Assert (Self_ID.ATC_Nesting_Level > Level_No_ATC_Occuring);
+      pragma Assert (Self_ID.ATC_Nesting_Level > Level_No_ATC_Occurring);
 
       Self_ID.ATC_Nesting_Level := Self_ID.ATC_Nesting_Level - 1;