From cb22b7a1d5d331b571b6efbcdff7a1eb8ff7659e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 1 Sep 2021 14:57:51 +0200
Subject: [PATCH] * Fopefully last fix for non-select platforms

---
 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 2a691e998b..9f4e38f726 100644
--- a/packages/fcl-net/src/ssockets.pp
+++ b/packages/fcl-net/src/ssockets.pp
@@ -603,8 +603,8 @@ var
 
 begin
   Result:=False;
-  MaxHandle:=0;
 {$if defined(unix) or defined(windows)}
+  MaxHandle:=0;
   TimeV.tv_usec := (aTimeOut mod 1000) * 1000;
   TimeV.tv_sec := aTimeOut div 1000;
   FillFD(FDR,aRead);