mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 10:40:13 +02:00
Do not use sets for ESysXX as the values are not in byte range for Haiku OS
git-svn-id: trunk@45877 -
This commit is contained in:
parent
a5db62a300
commit
34b1cfa4b9
@ -1143,7 +1143,7 @@ begin
|
||||
TimeOutResult:=ctrError;
|
||||
{$ifdef unix}
|
||||
Err:=ESysEINTR;
|
||||
While IsError and (Err in [ESysEINTR, ESysEAGAIN]) do
|
||||
While IsError and ((Err=ESysEINTR) or (Err=ESysEAGAIN)) do
|
||||
{$endif}
|
||||
begin
|
||||
IsError:=fpConnect(Handle, @addr, sizeof(addr))<>0;
|
||||
|
Loading…
Reference in New Issue
Block a user