[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.

diff --git a/gcc/ada/libgnarl/s-taprop__mingw.adb b/gcc/ada/libgnarl/s-taprop__mingw.adb
index 33d5977d1c4f366ef76af1c5b841303e673c4eda..24ed69fb25ef03be7f27a74fe540c63ac57cac5d 100644 (file)
--- 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);