diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-09-24 04:00:51 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-27 05:19:34 -0400 |
| commit | 39706328c467adf881b8dcba281e4febe166a763 (patch) | |
| tree | 003cab5bc2324f6f80a8f2e490c67c867cbbf42c /gcc/ada | |
| parent | a026b59e7711ffa23137a1255f1acc5c73589412 (diff) | |
| download | gcc-39706328c467adf881b8dcba281e4febe166a763.zip gcc-39706328c467adf881b8dcba281e4febe166a763.tar.gz gcc-39706328c467adf881b8dcba281e4febe166a763.tar.bz2 | |
[Ada] Warnings on g-spogwa.adb
gcc/ada/
* Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add g-spogwa object.
* libgnat/g-spogwa.adb: Fix style errors.
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); |