diff options
| author | Estevan Castilho (Tevo) <estevan.cps@gmail.com> | 2024-12-28 20:37:37 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2025-01-05 12:52:08 +0100 |
| commit | 31f1bec65ba257adc346f952fd79a1ec3165a2e6 (patch) | |
| tree | 500f1d7c2067e284c50844308b189bbd275c70fb | |
| parent | 345ad67fc2ee321d5c2e5371711a2d249b92b956 (diff) | |
| download | gcc-31f1bec65ba257adc346f952fd79a1ec3165a2e6.zip gcc-31f1bec65ba257adc346f952fd79a1ec3165a2e6.tar.gz gcc-31f1bec65ba257adc346f952fd79a1ec3165a2e6.tar.bz2 | |
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.
| -rw-r--r-- | gcc/ada/libgnarl/s-taprop__dummy.adb | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/gcc/ada/libgnarl/s-taprop__dummy.adb b/gcc/ada/libgnarl/s-taprop__dummy.adb index 68ec8b4..2127fb1 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; |