From 657fc14ca71385385f8fcb77883c4e9d4eedafb0 Mon Sep 17 00:00:00 2001 From: Ghjuvan Lacambre Date: Wed, 22 Dec 2021 10:24:29 +0100 Subject: [PATCH] [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. --- gcc/ada/libgnarl/s-taprop__mingw.adb | 2 -- 1 file changed, 2 deletions(-) diff --git a/gcc/ada/libgnarl/s-taprop__mingw.adb b/gcc/ada/libgnarl/s-taprop__mingw.adb index 33d5977..24ed69f 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); -- 2.7.4