fpc 3.0.0 support - fpc 3 renames fields in TInetSockAddr so we define it ourselves...

[lcore.git] / lcorewsaasyncselect.pas

diff --git a/lcorewsaasyncselect.pas b/lcorewsaasyncselect.pas
old mode 100755 (executable)
new mode 100644 (file)
index 075d558..d029103
--- a/lcorewsaasyncselect.pas
+++ b/lcorewsaasyncselect.pas
@@ -147,7 +147,7 @@ begin
         if readtrigger or writetrigger then lasio.handlefdtrigger(readtrigger,writetrigger);\r
       end;\r
       // don't reset the event manually for listen sockets to avoid unwanted\r
         if readtrigger or writetrigger then lasio.handlefdtrigger(readtrigger,writetrigger);\r
       end;\r
       // don't reset the event manually for listen sockets to avoid unwanted\r

-      // extra onsessionavailible events\r
+      // extra onsessionavailable events\r

       if (taddrint(findtree(@fdwatches,inttostr(socket))) and (FD_ACCEPT)) = 0 then dowsaasyncselect(socket,0,0); // if not a listen socket reset watches\r
     end;\r
   end else if (ahwnd=hwndlcore) and (aumsg=wm_dotasks) then begin\r
       if (taddrint(findtree(@fdwatches,inttostr(socket))) and (FD_ACCEPT)) = 0 then dowsaasyncselect(socket,0,0); // if not a listen socket reset watches\r
     end;\r
   end else if (ahwnd=hwndlcore) and (aumsg=wm_dotasks) then begin\r


@@ -229,7 +229,7 @@ begin
   timerwrapperinterface := twintimerwrapperinterface.create(nil);\r
 \r
   WSAStartup(2, GInitData);\r
   timerwrapperinterface := twintimerwrapperinterface.create(nil);\r
 \r
   WSAStartup(2, GInitData);\r

-  absoloutemaxs := maxlongint;\r
+  absolutemaxs := maxlongint;\r

 \r
   wcoreinit;\r
 \r
 \r
   wcoreinit;\r
 \r