diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-27 09:48:14 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-27 09:48:14 +0000 |
| commit | ed7ac9af135ba79fcda32b0a724609330065dd69 (patch) | |
| tree | 4fe983c2574ac0440a540e852d5684784c3ffdf5 /gcc/ada/s-taprop-posix.adb | |
| parent | 3812c117961c89ca865071a5d8e9d39625b294da (diff) | |
| download | gcc-ed7ac9af135ba79fcda32b0a724609330065dd69.tar.gz | |
2011-09-27 Pascal Obry <obry@adacore.com>
* s-osinte-hpux.ads, s-osinte-aix.ads, s-osinte-solaris-posix.ads,
s-osinte-irix.ads, s-osinte-darwin.ads, s-osinte-freebsd.ads:
Add dummy definitions for pthread_rwlock_t
and pthread_rwlockattr_t on all POSIX platforms.
* s-taprop-irix.adb, s-taprop-posix.adb (Initialize_Lock): Fix lock
reference.
(Finalize_Lock): Likewise.
(Write_Lock): Likewise.
(Unlock): Likewise.
2011-09-27 Tristan Gingold <gingold@adacore.com>
* s-tassta.adb (Task_Wrapper): Increase Guard_Page_Size value for
windows 64.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179254 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-posix.adb')
| -rw-r--r-- | gcc/ada/s-taprop-posix.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-taprop-posix.adb b/gcc/ada/s-taprop-posix.adb index af0a597e5fc..1dec99966ee 100644 --- a/gcc/ada/s-taprop-posix.adb +++ b/gcc/ada/s-taprop-posix.adb @@ -310,7 +310,7 @@ package body System.Task_Primitives.Operations is pragma Assert (Result = 0); end if; - Result := pthread_mutex_init (L, Attributes'Access); + Result := pthread_mutex_init (L.WO'Access, Attributes'Access); pragma Assert (Result = 0 or else Result = ENOMEM); if Result = ENOMEM then @@ -372,7 +372,7 @@ package body System.Task_Primitives.Operations is procedure Finalize_Lock (L : not null access Lock) is Result : Interfaces.C.int; begin - Result := pthread_mutex_destroy (L); + Result := pthread_mutex_destroy (L.WO'Access); pragma Assert (Result = 0); end Finalize_Lock; @@ -393,7 +393,7 @@ package body System.Task_Primitives.Operations is Result : Interfaces.C.int; begin - Result := pthread_mutex_lock (L); + Result := pthread_mutex_lock (L.WO'Access); -- Assume that the cause of EINVAL is a priority ceiling violation @@ -439,7 +439,7 @@ package body System.Task_Primitives.Operations is procedure Unlock (L : not null access Lock) is Result : Interfaces.C.int; begin - Result := pthread_mutex_unlock (L); + Result := pthread_mutex_unlock (L.WO'Access); pragma Assert (Result = 0); end Unlock; |