paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:29:19 +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 var
I: Cardinal; I: Cardinal;
begin begin
for I:=0 to aset.fd_count do I := 0;
while I <= aset.fd_count do
begin begin
if (aset.fd_array[i] = ASocket) then if (aset.fd_array[i] = ASocket) then
begin begin
@ -976,6 +977,7 @@ begin
Dec(aset.fd_count); Dec(aset.fd_count);
break; break;
end; end;
Inc (I);
end; end;
end; end;
@ -1056,7 +1058,10 @@ end.
{ {
$Log$ $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) * two calling conventions specified (stdcall and cdecl)
Revision 1.2 2003/08/15 10:53:43 yuri Revision 1.2 2003/08/15 10:53:43 yuri