diff options
| author | Pascal Obry <obry@adacore.com> | 2011-09-27 09:45:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-27 11:45:00 +0200 |
| commit | 64a63cd58bbe195dfa0041d84efbb7062d649b35 (patch) | |
| tree | e2a86a2cd807af9805a9f75b43e6ab06bf02771c /gcc/ada/s-taspri-posix.ads | |
| parent | f672a756b3c82462fd4b26860a4f916218da64b9 (diff) | |
| download | gcc-64a63cd58bbe195dfa0041d84efbb7062d649b35.zip gcc-64a63cd58bbe195dfa0041d84efbb7062d649b35.tar.gz gcc-64a63cd58bbe195dfa0041d84efbb7062d649b35.tar.bz2 | |
s-osinte-hpux.ads, [...]: Revert previous changes.
2011-09-27 Pascal Obry <obry@adacore.com>
* s-osinte-hpux.ads, s-taprop-vxworks.adb, s-taspri-vxworks.ads,
s-taprop-tru64.adb, s-osinte-aix.ads, s-taspri-posix-noaltstack.ads,
s-taspri-mingw.ads, s-taprop-vms.adb, s-tpoben.adb, s-tpoben.ads,
s-taprop-mingw.adb, s-taprob.adb, s-taprob.ads,
s-osinte-solaris-posix.ads, s-taprop-solaris.adb, s-taspri-solaris.ads,
s-osinte-irix.ads, s-taprop-irix.adb, s-osinte-darwin.ads,
s-taspri-dummy.ads, s-taspri-posix.ads, s-taprop.ads,
s-taspri-vms.ads, s-osinte-freebsd.ads, s-taprop-hpux-dce.adb,
s-taspri-hpux-dce.ads, s-taspri-tru64.ads, s-taprop-dummy.adb,
s-taprop-posix.adb: Revert previous changes.
(Lock): Now a record containing the two possible lock
(mutex and read/write) defined in OS_Interface.
* s-taprop-linux.adb (Finalize_Protection): Use r/w lock for
'R' locking policy.
(Initialize_Protection): Likewise.
(Lock): Likewise.
(Lock_Read_Only): Likewise.
(Unlock): Likewise.
From-SVN: r179253
Diffstat (limited to 'gcc/ada/s-taspri-posix.ads')
| -rw-r--r-- | gcc/ada/s-taspri-posix.ads | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/s-taspri-posix.ads b/gcc/ada/s-taspri-posix.ads index f9205d8..9f40693 100644 --- a/gcc/ada/s-taspri-posix.ads +++ b/gcc/ada/s-taspri-posix.ads @@ -44,7 +44,6 @@ package System.Task_Primitives is pragma Preelaborate; type Lock is limited private; - type RW_Lock is limited private; -- Should be used for implementation of protected objects type RTS_Lock is limited private; @@ -78,8 +77,11 @@ package System.Task_Primitives is private - type Lock is new System.OS_Interface.pthread_mutex_t; - type RW_Lock is new System.OS_Interface.pthread_rwlock_t; + type Lock is record + RW : aliased System.OS_Interface.pthread_rwlock_t; + WO : aliased System.OS_Interface.pthread_mutex_t; + end record; + type RTS_Lock is new System.OS_Interface.pthread_mutex_t; type Suspension_Object is record |