diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-12-22 10:24:29 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-07 16:24:15 +0000 |
| commit | 657fc14ca71385385f8fcb77883c4e9d4eedafb0 (patch) | |
| tree | 815061a366d4bb7e65c5337a74d9b8fc2a0bbfd9 | |
| parent | 22a69380dc62776a30a6ad91c05acafb2b5daa96 (diff) | |
| download | gcc-657fc14ca71385385f8fcb77883c4e9d4eedafb0.zip gcc-657fc14ca71385385f8fcb77883c4e9d4eedafb0.tar.gz gcc-657fc14ca71385385f8fcb77883c4e9d4eedafb0.tar.bz2 | |
[Ada] Fix uses of pragma Unreferenced in MinGW runtime unit
gcc/ada/
* libgnarl/s-taprop__mingw.adb (Timed_Sleep): Remove "pragma
Unreferenced" for Result.
(Timed_Delay): Likewise.
| -rw-r--r-- | gcc/ada/libgnarl/s-taprop__mingw.adb | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/ada/libgnarl/s-taprop__mingw.adb b/gcc/ada/libgnarl/s-taprop__mingw.adb index 33d5977..24ed69fb 100644 --- a/gcc/ada/libgnarl/s-taprop__mingw.adb +++ b/gcc/ada/libgnarl/s-taprop__mingw.adb @@ -559,7 +559,6 @@ package body System.Task_Primitives.Operations is Abs_Time : Duration; Result : Integer; - pragma Unreferenced (Result); Local_Timedout : Boolean; @@ -615,7 +614,6 @@ package body System.Task_Primitives.Operations is Timedout : Boolean; Result : Integer; - pragma Unreferenced (Timedout, Result); begin Write_Lock (Self_ID); |