[gcc r12-10884] Ada: Fix build for dummy s-taprop

[Eric Botcazou via Gcc-cvs]

https://gcc.gnu.org/g:85319f4637648691882a79ebac3d63c4d0204735

commit r12-10884-g85319f4637648691882a79ebac3d63c4d0204735
Author: Estevan Castilho (Tevo) <estevan....@gmail.com>
Date:   Sat Dec 28 20:37:37 2024 +0000

    Ada: Fix build for dummy s-taprop
    
    gcc/ada
            * libgnarl/s-taprop__dummy.adb: Remove use clause for
            System.Parameters.
            (Unlock): Remove Global_Lock formal parameter.
            (Write_Lock): Likewise.

Diff:
---
 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 5ab41b1b3c17..e5360a63f3d3 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.Tasking;
-   use System.Parameters;
 
    pragma Warnings (Off);
    --  Turn off warnings since so many unreferenced parameters
@@ -480,10 +479,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;
@@ -522,10 +518,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;