From 34b1cfa4b961a18d1dfe0c758b8d9df45d379d1f Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 29 Jul 2020 15:52:38 +0000
Subject: [PATCH] Do not use sets for ESysXX as the values are not in byte
range for Haiku OS
git-svn-id: trunk@45877 -
---
packages/fcl-net/src/ssockets.pp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp
index 1bd158d6e6..21a5ed83d9 100644
--- a/packages/fcl-net/src/ssockets.pp
+++ b/packages/fcl-net/src/ssockets.pp
@@ -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;