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

* 1.0.x problems fixed

Browse Source
This commit is contained in:
marco 2004-02-02 14:39:48 +00:00
parent ba793f2378
commit d9ec407b42
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/net/fpsock.pp
View File

@ -190,7 +190,7 @@ uses
{$IFDEF VER1_0} {$IFDEF VER1_0}
Linux; Linux;
{$ELSE} {$ELSE}
Unix; Baseunix,Unix;
{$ENDIF} {$ENDIF}
resourcestring resourcestring
@ -219,7 +219,7 @@ begin
if Result = -1 then if Result = -1 then
begin begin
Result := 0; Result := 0;
if SocketError <> Sys_EAGAIN then if SocketError <> {$ifdef ver1_0}Sys_EAGAIN{$else}ESysEAgain{$endif} then
Disconnected; Disconnected;
end; end;
end; end;
@ -230,7 +230,7 @@ begin
if Result = -1 then if Result = -1 then
begin begin
Result := 0; Result := 0;
if SocketError <> Sys_EAGAIN then if SocketError <> {$ifdef ver1_0}Sys_EAGAIN{$else}ESysEAgain{$endif} then
Disconnected; Disconnected;
end; end;
end; end;
@ -516,7 +516,7 @@ begin
SockAddr.Port := ShortHostToNet(Port); SockAddr.Port := ShortHostToNet(Port);
SockAddr.Addr := Cardinal(HostAddr); SockAddr.Addr := Cardinal(HostAddr);
Sockets.Connect(Stream.Handle, SockAddr, SizeOf(SockAddr)); Sockets.Connect(Stream.Handle, SockAddr, SizeOf(SockAddr));
if (SocketError <> sys_EINPROGRESS) and (SocketError <> 0) then if (SocketError <> {$ifdef ver1_0}sys_EINPROGRESS{$else}ESysEInProgress{$endif}) and (SocketError <> 0) then
raise ESocketError.CreateFmt(SSocketConnectFailed, raise ESocketError.CreateFmt(SSocketConnectFailed,
[GetPeerName, StrError(SocketError)]); [GetPeerName, StrError(SocketError)]);
end; end;
@ -581,7 +581,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2004-01-31 19:13:14 sg Revision 1.3 2004-02-02 14:39:48 marco
* 1.0.x problems fixed
Revision 1.2 2004/01/31 19:13:14 sg
* Splittet old HTTP unit into httpbase and httpclient * Splittet old HTTP unit into httpbase and httpclient
* Many improvements in fpSock (e.g. better disconnection detection) * Many improvements in fpSock (e.g. better disconnection detection)