paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

FPDebug: fixed compilation on Windows with FPC trunk, patch by Rika, closes issue #39349

Browse Source
This commit is contained in:
Maxim Ganetsky 2021-09-02 01:24:53 +03:00
parent 64fdfecf46
commit 91f499b984
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgrsp.pas
View File

@ -176,7 +176,7 @@ begin
FDS := Default(TFDSet);
FD_Zero(FDS);
FD_Set(self.Handle, FDS);
Result := Select(self.Handle + 1, @FDS, nil, nil, nil) > SOCKET_ERROR;
Result := winsock2.Select(self.Handle + 1, @FDS, nil, nil, nil) > SOCKET_ERROR;
{$endif}
end;
@ -202,7 +202,7 @@ begin
FDS := Default(TFDSet);
FD_Zero(FDS);
FD_Set(self.Handle, FDS);
Result := Select(self.Handle + 1, @FDS, nil, nil, @TimeV) > 0;
Result := winsock2.Select(self.Handle + 1, @FDS, nil, nil, @TimeV) > 0;
{$endif}
{$endif}
end;