diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 11:01:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 11:01:53 +0000 |
| commit | 27f427e4789eb74d3ba3ccd667ec3b9f93a1503d (patch) | |
| tree | 4d92fb31b56630df69ccb831e849a61f7efdb0cc /gcc/ada/a-synbar-posix.adb | |
| parent | a2f13eb0516bc500cd9d8913617e652ac2a9d0f9 (diff) | |
| download | gcc-27f427e4789eb74d3ba3ccd667ec3b9f93a1503d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178202 138bc75d-0d04-0410-961f-82ee72b054a4
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 c31228e0eaa..c98a460dcdf 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; |