Add explicit typecast to avoid compilation failure with -Criot option

git-svn-id: trunk@39831 -

packages/fcl-net/src/ssockets.pp

@@ -1026,7 +1026,7 @@ begin
     result := FpFcntl(ASocket, F_SetFl, flags and (not O_NONBLOCK)) = 0;
 {$endif}
 {$ifdef windows}
-  result := ioctlsocket(ASocket,FIONBIO,@ABlockMode) = 0;
+  result := ioctlsocket(ASocket,longint(FIONBIO),@ABlockMode) = 0;
 {$endif}
 end;