Browse Source

fcl-net: fixed the build after r33728 on everything which is non-Unix and non-Windows...

git-svn-id: trunk@33745 -
Károly Balogh 9 years ago
parent
commit
e2b3c6389f
1 changed files with 4 additions and 1 deletions
  1. 4 1
      packages/fcl-net/src/ssockets.pp

+ 4 - 1
packages/fcl-net/src/ssockets.pp

@@ -555,15 +555,18 @@ end;
 function TSocketServer.RunIdleLoop: Boolean;
 
 // Run Accept idle loop. Return True if there is a new connection waiting
-
+{$if defined(unix) or defined(windows)}
 var
   FDS: TFDSet;
   TimeV: TTimeVal;
+{$endif}
 begin
   Repeat
     Result:=False;
+{$if defined(unix) or defined(windows)}
     TimeV.tv_usec := (AcceptIdleTimeout mod 1000) * 1000;
     TimeV.tv_sec := AcceptIdleTimeout div 1000;
+{$endif}
 {$ifdef unix}
     FDS := Default(TFDSet);
     fpFD_Zero(FDS);