diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/Makefile.rtl | 1 | ||||
| -rw-r--r-- | 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 ba8c28c..b7df078 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 a9135ea..6e0af44 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); |