diff options
Diffstat (limited to 'gcc/ada/s-taprop-hpux-dce.adb')
| -rw-r--r-- | gcc/ada/s-taprop-hpux-dce.adb | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/gcc/ada/s-taprop-hpux-dce.adb b/gcc/ada/s-taprop-hpux-dce.adb index 346de43ba05..db1eaf48edf 100644 --- a/gcc/ada/s-taprop-hpux-dce.adb +++ b/gcc/ada/s-taprop-hpux-dce.adb @@ -254,6 +254,14 @@ 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 @@ -293,6 +301,11 @@ 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 @@ -324,6 +337,14 @@ 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 @@ -349,7 +370,7 @@ package body System.Task_Primitives.Operations is --------------- procedure Read_Lock - (L : not null access Lock; + (L : not null access RW_Lock; Ceiling_Violation : out Boolean) is begin @@ -367,6 +388,11 @@ 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) |