[PATCH] Ada: Fix build for dummy s-taprop

[Estevan Castilho]

Hello,

The dummy s-taprop.adb included in libgnarl has been broken for a few releases, 
as the signature for `Unlock' and `Write_Lock' on `RTS_Lock' has changed. That 
file doesn't seem to be used by any of the current runtime configurations, but 
it can be helpful for bringing up a new target.

Thanks,

--
Tevo

[PATCH] Ada: Fix build for dummy s-taprop

[Estevan Castilho]

From: "Estevan Castilho (Tevo)" 

---
 gcc/ada/libgnarl/s-taprop__dummy.adb | 11 ++-
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/gcc/ada/libgnarl/s-taprop__dummy.adb 
b/gcc/ada/libgnarl/s-taprop__dummy.adb
index 68ec8b448ba..2127fb1f1b1 100644
--- a/gcc/ada/libgnarl/s-taprop__dummy.adb
+++ b/gcc/ada/libgnarl/s-taprop__dummy.adb
@@ -37,7 +37,6 @@
 package body System.Task_Primitives.Operations is
 
use System.OS_Locks;
-   use System.Parameters;
use System.Tasking;
 
pragma Warnings (Off);
@@ -483,10 +482,7 @@ package body System.Task_Primitives.Operations is
   null;
end Unlock;
 
-   procedure Unlock
- (L   : not null access RTS_Lock;
-  Global_Lock : Boolean := False)
-   is
+   procedure Unlock (L : not null access RTS_Lock) is
begin
   null;
end Unlock;
@@ -525,10 +521,7 @@ package body System.Task_Primitives.Operations is
   Ceiling_Violation := False;
end Write_Lock;
 
-   procedure Write_Lock
- (L   : not null access RTS_Lock;
-  Global_Lock : Boolean := False)
-   is
+   procedure Write_Lock (L : not null access RTS_Lock) is
begin
   null;
end Write_Lock;
-- 
2.47.1