From 39706328c467adf881b8dcba281e4febe166a763 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 24 Sep 2020 04:00:51 -0400 Subject: [PATCH] [Ada] Warnings on g-spogwa.adb gcc/ada/ * Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add g-spogwa object. * libgnat/g-spogwa.adb: Fix style errors. --- gcc/ada/Makefile.rtl | 1 + gcc/ada/libgnat/g-spogwa.adb | 6 ++---- 2 files changed, 3 insertions(+), 4 deletions(-) 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); -- 2.30.2