diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:01:31 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:01:31 +0200 |
| commit | d18bbd25340adf4768c4e71ecd655630513876c7 (patch) | |
| tree | 52f3a096a08f6e10ff730078081414d84efcabb0 /gcc/ada/a-synbar-posix.adb | |
| parent | 37368818b9b039ebdb177c483b0d563e128952ba (diff) | |
| download | gcc-d18bbd25340adf4768c4e71ecd655630513876c7.zip gcc-d18bbd25340adf4768c4e71ecd655630513876c7.tar.gz gcc-d18bbd25340adf4768c4e71ecd655630513876c7.tar.bz2 | |
[multiple changes]
2014-08-01 Arnaud Charlet <charlet@adacore.com>
* exp_attr.adb (Is_Inline_Floating_Point_Attribute): Restore more
completely previous code since only GCC back-ends are prepared
to handle e.g. 'Machine attribute.
* targparm.adb, targparm.ads: Remove remaining refs and
handling of OpenVMS_On_Target, VAX_Float_On_Target and
RTX_RTSS_Kernel_Module_On_Target.
* hostparm.ads (OpenVMS, Max_Debug_Name_Length): Removed,
no longer used.
2014-08-01 Robert Dewar <dewar@adacore.com>
* exp_dist.adb, exp_attr.adb: Minor reformatting.
* sem_ch3.adb, mlib-tgt-specific-hpux.adb, a-direct.ads,
a-synbar-posix.adb, exp_ch9.adb, sem_ch10.adb, sem_prag.adb,
sem_ch12.adb, sem.ads, sem_res.adb, s-exctra.adb, s-soflin.ads,
g-alveop.ads, sem_ch8.adb, vxaddr2line.adb, sem_cat.ads: Remove
improper use of shall.
From-SVN: r213440
Diffstat (limited to 'gcc/ada/a-synbar-posix.adb')
| -rw-r--r-- | gcc/ada/a-synbar-posix.adb | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/gcc/ada/a-synbar-posix.adb b/gcc/ada/a-synbar-posix.adb index 73dc9fa..62cf232 100644 --- a/gcc/ada/a-synbar-posix.adb +++ b/gcc/ada/a-synbar-posix.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -50,7 +50,7 @@ package body Ada.Synchronous_Barriers is 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. + -- attributes are used. function pthread_barrier_destroy (barrier : not null access pthread_barrier_t) return int; @@ -76,10 +76,11 @@ 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, - attr => System.Null_Address, - count => unsigned (Barrier.Release_Threshold)); + Result := + pthread_barrier_init + (barrier => Barrier.POSIX_Barrier'Access, + attr => System.Null_Address, + count => unsigned (Barrier.Release_Threshold)); pragma Assert (Result = 0); end Initialize; @@ -98,8 +99,9 @@ package body Ada.Synchronous_Barriers is -- the barrier open. begin - Result := pthread_barrier_wait - (barrier => The_Barrier.POSIX_Barrier'Access); + Result := + pthread_barrier_wait + (barrier => The_Barrier.POSIX_Barrier'Access); pragma Assert (Result = 0 or else Result = PTHREAD_BARRIER_SERIAL_THREAD); |