add cpu defines for x64 support and unification between delphi and fpc

[lcore.git] / lcorewsaasyncselect.pas

diff --git a/lcorewsaasyncselect.pas b/lcorewsaasyncselect.pas
index 622c92ea82ad1bec51d389bc89e119c1baf702cb..075d5587622d40177d71ec9bc23bceff58784716 100755 (executable)
--- a/lcorewsaasyncselect.pas
+++ b/lcorewsaasyncselect.pas
@@ -6,7 +6,10 @@ procedure lcoreinit;
 \r
 implementation\r
 \r
 \r
 implementation\r
 \r

-uses wcore,lcore,bsearchtree,sysutils,windows,winsock,pgtypes,messages,classes,lsocket;\r
+uses\r
+  dnswin, //to call init\r
+  wcore,lcore,bsearchtree,sysutils,windows,winsock,pgtypes,messages,classes,lsocket;\r
+\r

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


@@ -205,6 +208,8 @@ procedure lcoreinit;
 begin\r
   if (inited) then exit;\r
 \r
 begin\r
   if (inited) then exit;\r
 \r

+  dnswin.init;\r
+\r

   eventcore := twineventcore.create;\r
   if Windows.RegisterClass(MyWindowClass) = 0 then halt;\r
   //writeln('about to create lcore handle, hinstance=',hinstance);\r
   eventcore := twineventcore.create;\r
   if Windows.RegisterClass(MyWindowClass) = 0 then halt;\r
   //writeln('about to create lcore handle, hinstance=',hinstance);\r


@@ -226,6 +231,7 @@ begin
   WSAStartup(2, GInitData);\r
   absoloutemaxs := maxlongint;\r
 \r
   WSAStartup(2, GInitData);\r
   absoloutemaxs := maxlongint;\r
 \r

+  wcoreinit;\r

 \r
   inited := true;\r
 end;\r
 \r
   inited := true;\r
 end;\r