Remove duplicate entries.

[pf3gnuchains/gcc-fork.git] / gcc / ada / a-synbar-posix.adb

diff --git a/gcc/ada/a-synbar-posix.adb b/gcc/ada/a-synbar-posix.adb
index c31228e..73dc9fa 100644 (file)
--- a/gcc/ada/a-synbar-posix.adb
+++ b/gcc/ada/a-synbar-posix.adb
@@ -46,14 +46,12 @@ package body Ada.Synchronous_Barriers is
    function pthread_barrier_init
      (barrier : not null access pthread_barrier_t;
       attr    : System.Address := System.Null_Address;
-      count   : unsigned)
-     return int;
+      count   : unsigned) return int;
    pragma Import (C, pthread_barrier_init, "pthread_barrier_init");
    --  Initialize barrier with the attributes in attr. The barrier is opened
    --  when count waiters arrived. If attr is null the default barrier
    --  attributes shall be used.
 
-   --  Destroy a previously dynamically initialized barrier
    function pthread_barrier_destroy
      (barrier : not null access pthread_barrier_t) return int;
    pragma Import (C, pthread_barrier_destroy, "pthread_barrier_destroy");
@@ -70,7 +68,6 @@ package body Ada.Synchronous_Barriers is
 
    overriding procedure Finalize (Barrier : in out Synchronous_Barrier) is
       Result : int;
-
    begin
       Result := pthread_barrier_destroy (Barrier.POSIX_Barrier'Access);
       pragma Assert (Result = 0);
@@ -78,7 +75,6 @@ package body Ada.Synchronous_Barriers is
 
    overriding procedure Initialize (Barrier : in out Synchronous_Barrier) is
       Result : int;
-
    begin
       Result := pthread_barrier_init
         (barrier => Barrier.POSIX_Barrier'Access,
@@ -93,7 +89,7 @@ package body Ada.Synchronous_Barriers is
 
    procedure Wait_For_Release
      (The_Barrier : in out Synchronous_Barrier;
-      Notified    : out    Boolean)
+      Notified    : out Boolean)
    is
       Result : int;
 
@@ -109,4 +105,5 @@ package body Ada.Synchronous_Barriers is
 
       Notified := (Result = PTHREAD_BARRIER_SERIAL_THREAD);
    end Wait_For_Release;
+
 end Ada.Synchronous_Barriers;