X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/eca2c8e0a8aad79c7dc7738346d265f973428995..7b89bae75911ccee6bfd92262960f325f1995072:/lcoreselect.pas?ds=sidebyside diff --git a/lcoreselect.pas b/lcoreselect.pas index a20a55b..ad81600 100644 --- a/lcoreselect.pas +++ b/lcoreselect.pas @@ -190,7 +190,7 @@ begin prepsigpipe; {$endif} selectresult := select(maxs+1,@fdsr,@fdsw,nil,0); - while (selectresult>0) or assigned(firsttask) or assigned(currenttask) do begin; + while (selectresult>0) or assigned(firsttask) do begin; processtasks; processtimers;