diff options
Diffstat (limited to 'gcc/ada/s-taprop-dummy.adb')
| -rw-r--r-- | gcc/ada/s-taprop-dummy.adb | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/gcc/ada/s-taprop-dummy.adb b/gcc/ada/s-taprop-dummy.adb index f6e9a64cdc7..f4830661129 100644 --- a/gcc/ada/s-taprop-dummy.adb +++ b/gcc/ada/s-taprop-dummy.adb @@ -158,6 +158,11 @@ 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; @@ -218,6 +223,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 + null; + end Initialize_Lock; + + procedure Initialize_Lock (L : not null access RTS_Lock; Level : Lock_Level) is begin null; @@ -264,7 +277,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 @@ -459,6 +472,11 @@ 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) @@ -502,6 +520,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 + Ceiling_Violation := False; + end Write_Lock; + + procedure Write_Lock (L : not null access RTS_Lock; Global_Lock : Boolean := False) is |