diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-21 12:40:32 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-21 12:40:32 +0100 |
| commit | 56272abec68769b5638003ec3227a8097a60b321 (patch) | |
| tree | 472c0a6c566ce139de8f0a3714aec19afce4a8bc /gcc/ada/s-taprop-linux.adb | |
| parent | a5dd23a728109134f3eea1272cb7edaba389f5c6 (diff) | |
| download | gcc-56272abec68769b5638003ec3227a8097a60b321.zip gcc-56272abec68769b5638003ec3227a8097a60b321.tar.gz gcc-56272abec68769b5638003ec3227a8097a60b321.tar.bz2 | |
[multiple changes]
2011-11-21 Pascal Obry <obry@adacore.com>
* s-taprop-linux.adb (Initialize_Lock): Do not allocate a cond
attribute as not needed.
2011-11-21 Robert Dewar <dewar@adacore.com>
* sem_prag.adb: Minor reformatting.
2011-11-21 Pascal Obry <obry@adacore.com>
* gnat_rm.texi: Document restriction for stdcall convention on
dispatching calls.
From-SVN: r181565
Diffstat (limited to 'gcc/ada/s-taprop-linux.adb')
| -rw-r--r-- | gcc/ada/s-taprop-linux.adb | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/s-taprop-linux.adb b/gcc/ada/s-taprop-linux.adb index 70f2d143..6773aaa 100644 --- a/gcc/ada/s-taprop-linux.adb +++ b/gcc/ada/s-taprop-linux.adb @@ -1069,8 +1069,7 @@ package body System.Task_Primitives.Operations is ---------------- procedure Initialize (S : in out Suspension_Object) is - Cond_Attr : aliased pthread_condattr_t; - Result : Interfaces.C.int; + Result : Interfaces.C.int; begin -- Initialize internal state (always to False (RM D.10(6))) @@ -1090,10 +1089,7 @@ package body System.Task_Primitives.Operations is -- Initialize internal condition variable - Result := pthread_condattr_init (Cond_Attr'Access); - pragma Assert (Result = 0); - - Result := pthread_cond_init (S.CV'Access, Cond_Attr'Access); + Result := pthread_cond_init (S.CV'Access, null); pragma Assert (Result = 0 or else Result = ENOMEM); |