FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Warnings on g-spogwa.adb

Browse source 
gcc/ada/

	* Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add g-spogwa object.
	* libgnat/g-spogwa.adb: Fix style errors.
This commit is contained in:
Arnaud Charlet 2020-09-24 04:00:51 -04:00 • committed by Pierre-Marie de Rodat
parent a026b59e77
commit 39706328c4
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
gcc/ada/Makefile.rtl
View file

@ -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) \

6
gcc/ada/libgnat/g-spogwa.adb
View file

@ -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);