paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for loop variable assignment error

Browse Source
This commit is contained in:
Tomas Hajny 2004-09-13 21:12:29 +00:00
parent d082859a46
commit 5252a60769
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/pmwsock.pas
View File

@ -964,7 +964,8 @@ Procedure FD_CLR(ASocket: TSocket; var aset: fdset);
var
I: Cardinal;
begin
for I:=0 to aset.fd_count do
I := 0;
while I <= aset.fd_count do
begin
if (aset.fd_array[i] = ASocket) then
begin
@ -976,6 +977,7 @@ begin
Dec(aset.fd_count);
break;
end;
Inc (I);
end;
end;
@ -1056,7 +1058,10 @@ end.
{
$Log$
Revision 1.3 2003-10-05 20:03:58 hajny
Revision 1.4 2004-09-13 21:12:29 hajny
* fix for loop variable assignment error
Revision 1.3 2003/10/05 20:03:58 hajny
* two calling conventions specified (stdcall and cdecl)
Revision 1.2 2003/08/15 10:53:43 yuri