paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 23:09:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ completed (hopefully) Fix by stian (my_wave@ypsilonia.net)

Browse Source
This commit is contained in:
michael 1999-06-08 16:08:33 +00:00
parent 1bd6ade6d2
commit c8b95531b3
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/linux/sockets.pp
View File

@ -401,7 +401,7 @@ end;
Function DoConnect(Sock:longint;const addr:string):Boolean;
Function DoConnect(Sock:longint;const addr:string):Longint;
var
UnixAddr : TUnixSockAddr;
AddrLen : longint;
@ -443,8 +443,12 @@ end;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:text):Boolean;
Var FD : Longint;
begin
if DoConnect(Sock,addr) then
FD:=DoConnect(Sock,addr);
If Not(FD<0) then
begin
Sock2Text(Sock,SockIn,SockOut);
Connect:=true;
@ -456,8 +460,12 @@ end;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:file):Boolean;
Var FD : Longint;
begin
if DoConnect(Sock,addr) then
FD:=DoConnect(Sock,addr);
if Not(FD<0) then
begin
Sock2File(Sock,SockIn,SockOut);
Connect:=true;
@ -554,7 +562,10 @@ end.
{
$Log$
Revision 1.4 1999-06-08 16:05:08 michael
Revision 1.5 1999-06-08 16:08:33 michael
+ completed (hopefully) Fix by stian (my_wave@ypsilonia.net)
Revision 1.4 1999/06/08 16:05:08 michael
+ Fix by stian (my_wave@ypsilonia.net)
Revision 1.3 1998/11/16 10:21:30 peter