2
0
Эх сурвалжийг харах

* Fix for non-compilation on non-supported platforms

Michaël Van Canneyt 3 жил өмнө
parent
commit
6e5103f3c5

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

@@ -416,6 +416,7 @@ begin
 {$ifdef windows}
   Res:=winsock2.Select(Socket.Handle + 1, PFDSR, PFDSW, PFDSE, @TimeV);
 {$endif}
+{$if defined(unix) or defined(windows)}
   if Res>0 then
     begin
     CheckSet(FDSR,sosCanRead);
@@ -426,6 +427,9 @@ begin
     FLastError:=SocketError
   else
     FLastError:=0;
+{$else}
+  FLastError:=0;    
+{$endif}
 end;
 
 function TSocketHandler.CanRead(TimeOut : Integer): Boolean;