fix a bug in peekmessage

[lcore.git] / lcoreselect.pas

diff --git a/lcoreselect.pas b/lcoreselect.pas
index e0351ebfa7400afd280049b29e8a30dbda84bf4e..77da21f33a8e2fdae3c0f4498041d67113686d9d 100755 (executable)
--- a/lcoreselect.pas
+++ b/lcoreselect.pas
@@ -6,12 +6,12 @@
   For conditions of distribution and use, see copyright notice in zlib_license.txt\r
   which is included in the package\r
   ----------------------------------------------------------------------------- }\r
   For conditions of distribution and use, see copyright notice in zlib_license.txt\r
   which is included in the package\r
   ----------------------------------------------------------------------------- }\r

-
-{$ifdef fpc}                                                                    
-  {$ifndef ver1_0}                                                              
-    {$define useinline}                                                         
-  {$endif}                                                                      
-{$endif}  \r
+\r
+{$ifdef fpc}\r
+  {$ifndef ver1_0}\r
+    {$define useinline}\r
+  {$endif}\r
+{$endif}\r

 \r
 unit lcoreselect;\r
 \r
 \r
 unit lcoreselect;\r
 \r


@@ -31,6 +31,8 @@ var
 function getfdsrmaster : fdset; {$ifdef useinline}inline;{$endif}\r
 function getfdswmaster : fdset; {$ifdef useinline}inline;{$endif}\r
 \r
 function getfdsrmaster : fdset; {$ifdef useinline}inline;{$endif}\r
 function getfdswmaster : fdset; {$ifdef useinline}inline;{$endif}\r
 \r

+procedure lcoreinit;\r
+\r

 implementation\r
 uses\r
   lcore,sysutils,\r
 implementation\r
 uses\r
   lcore,sysutils,\r


@@ -41,8 +43,12 @@ uses
 \r
 {$include unixstuff.inc}\r
 {$include ltimevalstuff.inc}\r
 \r
 {$include unixstuff.inc}\r
 {$include ltimevalstuff.inc}\r

+\r
+const\r
+  absoloutemaxs_select = (sizeof(fdset)*8)-1;\r
+\r

 var\r
 var\r

-  fdreverse:array[0..absoloutemaxs] of tlasio;\r
+  fdreverse:array[0..absoloutemaxs_select] of tlasio;\r

 type\r
   tselecteventcore=class(teventcore)\r
     public\r
 type\r
   tselecteventcore=class(teventcore)\r
     public\r


@@ -78,7 +84,6 @@ begin
     end;\r
     temptimer := currenttimer;\r
     currenttimer := currenttimer.nexttimer;\r
     end;\r
     temptimer := currenttimer;\r
     currenttimer := currenttimer.nexttimer;\r

-    if temptimer.released then temptimer.free;\r

   end;\r
 end;\r
 \r
   end;\r
 end;\r
 \r


@@ -129,17 +134,6 @@ begin
     end;\r
   end;\r
 \r
     end;\r
   end;\r
 \r

-  if asinreleaseflag then begin\r
-    asinreleaseflag := false;\r
-    currentsocket := firstasin;\r
-    while assigned(currentsocket) do begin\r
-      tempsocket := currentsocket;\r
-      currentsocket := currentsocket.nextasin;\r
-      if tempsocket.released then begin\r
-        tempsocket.free;\r
-      end;\r
-    end;\r
-  end;\r

   {\r
   !!! issues:\r
   - sockets which are released may not be freed because theyre never processed by the loop\r
   {\r
   !!! issues:\r
   - sockets which are released may not be freed because theyre never processed by the loop\r


@@ -209,7 +203,7 @@ var
 \r
 var\r
   fdsrmaster , fdswmaster               : fdset      ;\r
 \r
 var\r
   fdsrmaster , fdswmaster               : fdset      ;\r

-
+\r

 function getfdsrmaster : fdset; {$ifdef fpc}inline;{$endif}\r
 begin\r
   result := fdsrmaster;\r
 function getfdsrmaster : fdset; {$ifdef fpc}inline;{$endif}\r
 begin\r
   result := fdsrmaster;\r


@@ -218,8 +212,8 @@ function getfdswmaster : fdset; {$ifdef fpc}inline;{$endif}
 begin\r
   result := fdswmaster;\r
 end;\r
 begin\r
   result := fdswmaster;\r
 end;\r

-
-
+\r
+\r

 Function  doSelect(timeOut:PTimeVal):longint;//inline;\r
 var\r
   localtimeval : ttimeval;\r
 Function  doSelect(timeOut:PTimeVal):longint;//inline;\r
 var\r
   localtimeval : ttimeval;\r


@@ -289,25 +283,6 @@ begin
   repeat\r
 \r
     //the message loop will exit if all lasio's and ltimer's and lsignal's are destroyed\r
   repeat\r
 \r
     //the message loop will exit if all lasio's and ltimer's and lsignal's are destroyed\r

-    if (not assigned(firstasin)) and (not assigned(firsttimer)) {$ifndef nosignal} and (not assigned(firstsignal)){$endif} then exit;\r
-    {fd_zero(FDSR);\r
-    fd_zero(FDSW);\r
-    currentsocket := firstasin;\r
-    if not assigned(currentsocket) then exit; //the message loop will exit if all lsockets are destroyed\r
-\r
-    repeat\r
-      if (not currentsocket.released) and (currentsocket.state<>wsclosed) then fd_set(currentsocket.fdhandlein,fdsr);\r
-      if (not currentsocket.released) and (currentsocket.state=wsconnecting) then fd_set(currentsocket.fdhandleout,fdsw);\r
-      if currentsocket is tlsocket then begin\r
-         if (not currentsocket.released) and (currentsocket.state=wsconnected) and(tlsocket(currentsocket).sendq <> '') then fd_set(currentsocket.fdhandleout,fdsw);\r
-      end;\r
-      tempsocket := currentsocket;\r
-      currentsocket := currentsocket.nextasin;\r
-      if tempsocket.released then begin\r
-        tempsocket.free;\r
-      end;\r
-    until not assigned(currentsocket);\r
-    }\r

     processtasks;\r
     //currenttask := nil;\r
     {beware}\r
     processtasks;\r
     //currenttask := nil;\r
     {beware}\r


@@ -388,12 +363,20 @@ begin
   fdreverse[fd] := reverseto;\r
 end;\r
 \r
   fdreverse[fd] := reverseto;\r
 end;\r
 \r

+var\r
+  inited:boolean;\r

 \r
 \r

-\r
+procedure lcoreinit;\r

 begin\r
 begin\r

+  if inited then exit;\r
+  inited := true;\r

   eventcore := tselecteventcore.create;\r
 \r
   eventcore := tselecteventcore.create;\r
 \r

+  absoloutemaxs := absoloutemaxs_select;\r
+\r

   maxs := 0;\r
   fd_zero(fdsrmaster);\r
   fd_zero(fdswmaster);\r
   maxs := 0;\r
   fd_zero(fdsrmaster);\r
   fd_zero(fdswmaster);\r

+end;\r
+\r

 end.\r
 end.\r