diff options
Diffstat (limited to 'gcc/ada/s-taprop-posix.adb')
| -rw-r--r-- | gcc/ada/s-taprop-posix.adb | 27 |
1 files changed, 1 insertions, 26 deletions
diff --git a/gcc/ada/s-taprop-posix.adb b/gcc/ada/s-taprop-posix.adb index f70ae8d70d5..af0a597e5fc 100644 --- a/gcc/ada/s-taprop-posix.adb +++ b/gcc/ada/s-taprop-posix.adb @@ -323,14 +323,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 - Initialize_Lock (Prio, Lock (L.all)'Unrestricted_Access); - end Initialize_Lock; - - procedure Initialize_Lock (L : not null access RTS_Lock; Level : Lock_Level) is pragma Unreferenced (Level); @@ -384,11 +376,6 @@ package body System.Task_Primitives.Operations is pragma Assert (Result = 0); end Finalize_Lock; - procedure Finalize_Lock (L : not null access RW_Lock) is - begin - Finalize_Lock (Lock (L.all)'Unrestricted_Access); - end Finalize_Lock; - procedure Finalize_Lock (L : not null access RTS_Lock) is Result : Interfaces.C.int; begin @@ -415,13 +402,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 - Write_Lock (Lock (L.all)'Unrestricted_Access, Ceiling_Violation); - end Write_Lock; - - procedure Write_Lock (L : not null access RTS_Lock; Global_Lock : Boolean := False) is @@ -447,7 +427,7 @@ package body System.Task_Primitives.Operations is --------------- procedure Read_Lock - (L : not null access RW_Lock; Ceiling_Violation : out Boolean) is + (L : not null access Lock; Ceiling_Violation : out Boolean) is begin Write_Lock (L, Ceiling_Violation); end Read_Lock; @@ -463,11 +443,6 @@ package body System.Task_Primitives.Operations is pragma Assert (Result = 0); end Unlock; - procedure Unlock (L : not null access RW_Lock) is - begin - Unlock (Lock (L.all)'Unrestricted_Access); - end Unlock; - procedure Unlock (L : not null access RTS_Lock; Global_Lock : Boolean := False) is |