tdnsstatearr declaration is needed outside syncdns code

[lcore.git] / dnswin.pas

diff --git a/dnswin.pas b/dnswin.pas
index 847f0fd9bfa88a4ba971898e5ee27d20e4538335..567ea68f04424b720616f36070a62106b0779d0a 100644 (file)
--- a/dnswin.pas
+++ b/dnswin.pas
@@ -21,7 +21,6 @@ type
   tdnswinasync=class(tthread)\r
   private\r
     freverse : boolean;\r
   tdnswinasync=class(tthread)\r
   private\r
     freverse : boolean;\r

-    error : integer;\r

     freewhendone : boolean;\r
     hadevent : boolean;\r
   protected\r
     freewhendone : boolean;\r
     hadevent : boolean;\r
   protected\r


@@ -88,6 +87,7 @@ var
   hostent : phostent;\r
   addrlist:^pointer;\r
 begin\r
   hostent : phostent;\r
   addrlist:^pointer;\r
 begin\r

+  output := nil;\r

   if hints.ai_family <> af_inet6 then begin\r
     result := 0;\r
 \r
   if hints.ai_family <> af_inet6 then begin\r
     result := 0;\r
 \r


@@ -264,6 +264,7 @@ begin
     if assigned (dwas.onrequestdone) then dwas.onrequestdone(dwas,awparam);\r
     dwas.hadevent := true;\r
     if dwas.freewhendone then dwas.free;\r
     if assigned (dwas.onrequestdone) then dwas.onrequestdone(dwas,awparam);\r
     dwas.hadevent := true;\r
     if dwas.freewhendone then dwas.free;\r

+    result := 0; {added returning 0 when handling --beware}\r

   end else begin\r
     //not passing unknown messages on to defwindowproc will cause window\r
     //creation to fail! --plugwash\r
   end else begin\r
     //not passing unknown messages on to defwindowproc will cause window\r
     //creation to fail! --plugwash\r