Browse Source

* fix for loop variable assignment error

Tomas Hajny 21 years ago
parent
commit
5252a60769
1 changed files with 7 additions and 2 deletions
  1. 7 2
      rtl/os2/pmwsock.pas

+ 7 - 2
rtl/os2/pmwsock.pas

@@ -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