diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-27 09:45:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-27 09:45:00 +0000 |
| commit | 3812c117961c89ca865071a5d8e9d39625b294da (patch) | |
| tree | e2a86a2cd807af9805a9f75b43e6ab06bf02771c /gcc/ada/s-taprop-dummy.adb | |
| parent | f52e508dca0d6bb1f0ba72882961142469942566 (diff) | |
| download | ppe42-gcc-3812c117961c89ca865071a5d8e9d39625b294da.tar.gz ppe42-gcc-3812c117961c89ca865071a5d8e9d39625b294da.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179253 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-dummy.adb')
| -rw-r--r-- | gcc/ada/s-taprop-dummy.adb | 28 |
1 files changed, 1 insertions, 27 deletions
diff --git a/gcc/ada/s-taprop-dummy.adb b/gcc/ada/s-taprop-dummy.adb index f4830661129..f6e9a64cdc7 100644 --- a/gcc/ada/s-taprop-dummy.adb +++ b/gcc/ada/s-taprop-dummy.adb @@ -158,11 +158,6 @@ package body System.Task_Primitives.Operations is null; end Finalize_Lock; - procedure Finalize_Lock (L : not null access RW_Lock) is - begin - null; - end Finalize_Lock; - procedure Finalize_Lock (L : not null access RTS_Lock) is begin null; @@ -223,14 +218,6 @@ package body System.Task_Primitives.Operations is end Initialize_Lock; procedure Initialize_Lock - (Prio : System.Any_Priority; - L : not null access RW_Lock) - is - begin - null; - end Initialize_Lock; - - procedure Initialize_Lock (L : not null access RTS_Lock; Level : Lock_Level) is begin null; @@ -277,7 +264,7 @@ package body System.Task_Primitives.Operations is --------------- procedure Read_Lock - (L : not null access RW_Lock; + (L : not null access Lock; Ceiling_Violation : out Boolean) is begin @@ -472,11 +459,6 @@ package body System.Task_Primitives.Operations is null; end Unlock; - procedure Unlock (L : not null access RW_Lock) is - begin - null; - end Unlock; - procedure Unlock (L : not null access RTS_Lock; Global_Lock : Boolean := False) @@ -520,14 +502,6 @@ package body System.Task_Primitives.Operations is end Write_Lock; procedure Write_Lock - (L : not null access RW_Lock; - Ceiling_Violation : out Boolean) - is - begin - Ceiling_Violation := False; - end Write_Lock; - - procedure Write_Lock (L : not null access RTS_Lock; Global_Lock : Boolean := False) is |
