paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 11:30:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Beter return values for connect and accept

Browse Source
This commit is contained in:
michael 1999-06-08 18:35:24 +00:00
parent 000af6d37a
commit 7626d18762
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/linux/sockets.pp
View File

@ -221,13 +221,18 @@ end;
Function Accept(Sock:Longint;Var Addr;Var Addrlen:Longint):Longint;
begin
Accept:=SocketCall(Socket_Sys_Accept,Sock,longint(@Addr),longint(@AddrLen));
If Accept<0 Then
Accept:=-1;
end;
Function Connect(Sock:Longint;Var Addr;Addrlen:Longint):Longint;
begin
Connect:=SocketCall(Socket_Sys_Connect,Sock,longint(@Addr),AddrLen);
If Connect<0 Then
Connect:=-1;
end;
@ -448,7 +453,7 @@ Var FD : Longint;
begin
FD:=DoConnect(Sock,addr);
If Not(FD<0) then
If Not(FD=-1) then
begin
Sock2Text(Sock,SockIn,SockOut);
Connect:=true;
@ -465,7 +470,7 @@ Var FD : Longint;
begin
FD:=DoConnect(Sock,addr);
if Not(FD<0) then
if Not(FD=-1) then
begin
Sock2File(Sock,SockIn,SockOut);
Connect:=true;
@ -505,7 +510,7 @@ Var FD : Longint;
begin
FD:=DoConnect(Sock,addr);
If Not(FD<0) then
If Not(FD=-1) then
begin
Sock2Text(FD,SockIn,SockOut);
Connect:=true;
@ -522,7 +527,7 @@ Var FD : Longint;
begin
FD:=DoConnect(Sock,addr);
If Not (FD<0) then
If Not (FD=-1) then
begin
Sock2File(FD,SockIn,SockOut);
Connect:=true;
@ -570,7 +575,10 @@ end.
{
$Log$
Revision 1.6 1999-06-08 18:19:24 michael
Revision 1.7 1999-06-08 18:35:24 michael
+ Beter return values for connect and accept
Revision 1.6 1999/06/08 18:19:24 michael
+ Fixes for connect calls
Revision 1.5 1999/06/08 16:08:33 michael