Minor reformatting.

From-SVN: r211463

diff --git a/gcc/ada/s-taprop-linux.adb b/gcc/ada/s-taprop-linux.adb
index 5aa384ba126d0c0f2443fbd159131bcc3fb91238..4a81c0880fa79f3d794d968949eedad95a33f0ae 100644 (file)
--- a/gcc/ada/s-taprop-linux.adb
+++ b/gcc/ada/s-taprop-linux.adb
@@ -1076,9 +1076,11 @@ package body System.Task_Primitives.Operations is
 
    procedure Abort_Task (T : Task_Id) is
       Result : Interfaces.C.int;
-      ESRCH  : constant := 3; -- No such process
+
+      ESRCH : constant := 3; -- No such process
       --  It can happen that T has already vanished, in which case pthread_kill
       --  returns ESRCH, so we don't consider that to be an error.
+
    begin
       if Abort_Handler_Installed then
          Result :=

diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb
index 4eff8eeaa76c737bd30ff06c5487dacf6d24e821..decfcab0f83db4a05f909eebfd52192bed450d27 100644 (file)
--- a/gcc/ada/s-tassta.adb
+++ b/gcc/ada/s-tassta.adb
@@ -870,15 +870,14 @@ package body System.Tasking.Stages is
       Write_Lock (Self_ID);
 
       --  If the Abort_Task signal is set to system, it means that we may
-      --  not have been able to abort all independent tasks (in particular
+      --  not have been able to abort all independent tasks (in particular,
       --  Server_Task may be blocked, waiting for a signal), in which case, do
       --  not wait for Independent_Task_Count to go down to 0. We arbitrarily
       --  limit the number of loop iterations; if an independent task does not
       --  terminate, we do not want to hang here. In that case, the thread will
       --  be terminated when the process exits.
 
-      if State (System.Interrupt_Management.Abort_Task_Interrupt) /=
-        Default
+      if State (System.Interrupt_Management.Abort_Task_Interrupt) /= Default
       then
          for J in 1 .. 10 loop
             exit when Utilities.Independent_Task_Count = 0;