From: plugwash Date: Sun, 30 Mar 2008 01:02:40 +0000 (+0000) Subject: fix line ending and some other minor issues X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/0e83198df591c5ed5d31f53c9bcdcd16ab26d4a6?ds=sidebyside fix line ending and some other minor issues git-svn-id: file:///svnroot/lcore/trunk@7 b1de8a11-f9be-4011-bde0-cc7ace90066a --- diff --git a/lcorewsaasyncselect.pas b/lcorewsaasyncselect.pas index de9d36f..712bd7f 100755 --- a/lcorewsaasyncselect.pas +++ b/lcorewsaasyncselect.pas @@ -138,12 +138,12 @@ begin end else begin if (event and (FD_READ or FD_ACCEPT)) <> 0 then readtrigger := true; if (event and (FD_WRITE)) <> 0 then writetrigger := true; - + if readtrigger or writetrigger then lasio.handlefdtrigger(readtrigger,writetrigger); end; - // don't reset the event manually for listen sockets to avoid unwanted - // extra onsessionavailible events - if (taddrint(findtree(@fdwatches,inttostr(fd))) and FD_ACCEPT) = 0 dowsaasyncselect(socket,0,0); // if not a listen socket reset watches + // don't reset the event manually for listen sockets to avoid unwanted + // extra onsessionavailible events + if (taddrint(findtree(@fdwatches,inttostr(socket))) and FD_ACCEPT) = 0 then dowsaasyncselect(socket,0,0); // if not a listen socket reset watches end; end else if (ahwnd=hwndlcore) and (aumsg=wm_dotasks) then begin //writeln('processing tasks');