From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 24 Sep 2020 08:00:51 +0000 (-0400)
Subject: [Ada] Warnings on g-spogwa.adb
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=39706328c467adf881b8dcba281e4febe166a763;p=gcc.git

[Ada] Warnings on g-spogwa.adb

gcc/ada/

	* Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add g-spogwa object.
	* libgnat/g-spogwa.adb: Fix style errors.
---

diff --git a/gcc/ada/Makefile.rtl b/gcc/ada/Makefile.rtl
index ba8c28c7c82..b7df078c0bd 100644
--- a/gcc/ada/Makefile.rtl
+++ b/gcc/ada/Makefile.rtl
@@ -483,6 +483,7 @@ GNATRTL_NONTASKING_OBJS= \
   g-speche$(objext) \
   g-spipat$(objext) \
   g-spitbo$(objext) \
+  g-spogwa$(objext) \
   g-sptabo$(objext) \
   g-sptain$(objext) \
   g-sptavs$(objext) \
diff --git a/gcc/ada/libgnat/g-spogwa.adb b/gcc/ada/libgnat/g-spogwa.adb
index a9135ea110d..6e0af44f076 100644
--- a/gcc/ada/libgnat/g-spogwa.adb
+++ b/gcc/ada/libgnat/g-spogwa.adb
@@ -36,8 +36,6 @@ procedure GNAT.Sockets.Poll.G_Wait
 is
    use Interfaces;
 
-   use type C.int;
-
    function C_Select
      (Nfds      : C.int;
       readfds   : access FD_Set_Type;
@@ -65,8 +63,8 @@ begin
 
    if Timeout >= 0 then
       Timeout_A := Timeout_V'Access;
-      Timeout_V.tv_sec  := Thin_Common.time_t  (Timeout / 1000);
-      Timeout_V.tv_usec := Thin_Common.suseconds_t (Timeout rem 1000 * 1000);
+      Timeout_V.Tv_Sec  := Thin_Common.time_t  (Timeout / 1000);
+      Timeout_V.Tv_Usec := Thin_Common.suseconds_t (Timeout rem 1000 * 1000);
    end if;
 
    Reset_Socket_Set (Rfds);