fix slow send speed, new fifo allows get of entire buffer

[lcore.git] / lcoreselect.pas

diff --git a/lcoreselect.pas b/lcoreselect.pas
index a20a55b9a799c9b8f21d308a5e29e5caaa7bffd6..ad816002eced002543ec03de43363c7b4331ca24 100644 (file)
--- a/lcoreselect.pas
+++ b/lcoreselect.pas
@@ -190,7 +190,7 @@ begin
     prepsigpipe;\r
   {$endif}\r
   selectresult := select(maxs+1,@fdsr,@fdsw,nil,0);\r
     prepsigpipe;\r
   {$endif}\r
   selectresult := select(maxs+1,@fdsr,@fdsw,nil,0);\r

-  while (selectresult>0) or assigned(firsttask) or assigned(currenttask) do begin;\r
+  while (selectresult>0) or assigned(firsttask) do begin;\r

 \r
     processtasks;\r
     processtimers;\r
 \r
     processtasks;\r
     processtimers;\r