diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 13:01:53 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 13:01:53 +0200 |
| commit | 0db16b1e6b193f55d7ad70bc204f9942a21ab924 (patch) | |
| tree | 4d92fb31b56630df69ccb831e849a61f7efdb0cc /gcc/ada/a-synbar-posix.adb | |
| parent | 978ffe02af044beca77bc6e959edd14ffc599a8f (diff) | |
| download | gcc-0db16b1e6b193f55d7ad70bc204f9942a21ab924.zip gcc-0db16b1e6b193f55d7ad70bc204f9942a21ab924.tar.gz gcc-0db16b1e6b193f55d7ad70bc204f9942a21ab924.tar.bz2 | |
[multiple changes]
2011-08-29 Robert Dewar <dewar@adacore.com>
* a-synbar.ads, a-synbar.adb, a-synbar-posix.adb,
a-synbar-posix.ads: Minor reformatting.
2011-08-29 Yannick Moy <moy@adacore.com>
* snames.ads-tmpl: Add name Force.
From-SVN: r178202
Diffstat (limited to 'gcc/ada/a-synbar-posix.adb')
| -rw-r--r-- | gcc/ada/a-synbar-posix.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/ada/a-synbar-posix.adb b/gcc/ada/a-synbar-posix.adb index c31228e..c98a460 100644 --- a/gcc/ada/a-synbar-posix.adb +++ b/gcc/ada/a-synbar-posix.adb @@ -46,8 +46,7 @@ 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 @@ -70,7 +69,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 +76,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 +90,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; |