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

* unix fix for 1.0.x

Browse Source
This commit is contained in:
peter 2003-09-28 09:34:02 +00:00
parent 4c20f06845
commit 9419bb3993
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/base/netdb/netdb.pp
View File

@ -458,7 +458,7 @@ begin
{$else} {$else}
fpFD_Set(sock,readfds); fpFD_Set(sock,readfds);
{$endif} {$endif}
if fpSelect(Sock+1,@readfds,Nil,Nil,RTO)<=0 then if {$ifdef ver1_0}Select{$else}fpSelect{$endif}(Sock+1,@readfds,Nil,Nil,RTO)<=0 then
begin begin
{$ifdef VER1_0}fdclose{$ELSE}fpclose{$endif}(Sock); {$ifdef VER1_0}fdclose{$ELSE}fpclose{$endif}(Sock);
exit; exit;
@ -955,7 +955,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 2003-09-18 16:30:23 marco Revision 1.5 2003-09-28 09:34:02 peter
* unix fix for 1.0.x
Revision 1.4 2003/09/18 16:30:23 marco
* unixreform fix * unixreform fix
Revision 1.3 2003/05/17 20:54:03 michael Revision 1.3 2003/05/17 20:54:03 michael