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.ads | |
| parent | a2f13eb0516bc500cd9d8913617e652ac2a9d0f9 (diff) | |
| download | ppe42-gcc-27f427e4789eb74d3ba3ccd667ec3b9f93a1503d.tar.gz ppe42-gcc-27f427e4789eb74d3ba3ccd667ec3b9f93a1503d.zip | |
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.ads')
| -rw-r--r-- | gcc/ada/a-synbar-posix.ads | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/gcc/ada/a-synbar-posix.ads b/gcc/ada/a-synbar-posix.ads index 80d9b201e56..4c01852b0e6 100644 --- a/gcc/ada/a-synbar-posix.ads +++ b/gcc/ada/a-synbar-posix.ads @@ -47,8 +47,9 @@ package Ada.Synchronous_Barriers is type Synchronous_Barrier (Release_Threshold : Barrier_Limit) is limited private; - procedure Wait_For_Release (The_Barrier : in out Synchronous_Barrier; - Notified : out Boolean); + procedure Wait_For_Release + (The_Barrier : in out Synchronous_Barrier; + Notified : out Boolean); private -- POSIX barrier data type @@ -56,8 +57,8 @@ private SIZEOF_PTHREAD_BARRIER_T : constant := (if System.Word_Size = 64 then 32 else 20); -- Value defined according to the linux definition in pthreadtypes.h. On - -- other system, MIPS IRIX, the object is smaller, so it works correctly - -- although we are wasting some space. + -- other system, e.g. MIPS IRIX, the object is smaller, so it works + -- correctly although we are wasting some space. type pthread_barrier_t_view is (size_based, align_based); @@ -74,9 +75,9 @@ private type Synchronous_Barrier (Release_Threshold : Barrier_Limit) is new Ada.Finalization.Limited_Controlled with - record - POSIX_Barrier : aliased pthread_barrier_t; - end record; + record + POSIX_Barrier : aliased pthread_barrier_t; + end record; overriding procedure Initialize (Barrier : in out Synchronous_Barrier); overriding procedure Finalize (Barrier : in out Synchronous_Barrier); |
