replace internal uses of gettimeofday with monotonic time where appropriate. make...

[lcore.git] / dnsasync.pas

diff --git a/dnsasync.pas b/dnsasync.pas
index 59660d7306df82e3891294850954a91f082cb3c8..f9fa50e974bac9b316ed0210621101d9ae180b22 100644 (file)
--- a/dnsasync.pas
+++ b/dnsasync.pas
@@ -7,11 +7,13 @@
 //not seem to have any form of retry code.\r
 \r
 unit dnsasync;\r
-\r
+{$ifdef fpc}\r
+  {$mode delphi}\r
+{$endif}\r
 interface\r
 \r
 uses\r
-  {$ifdef mswindows}\r
+  {$ifdef winasyncdns}\r
     dnswin,\r
   {$endif}\r
   lsocket,lcore,\r
@@ -39,7 +41,7 @@ type
 \r
     dnsserverids : array[0..numsock-1] of integer;\r
     startts:double;\r
-    {$ifdef mswindows}\r
+    {$ifdef winasyncdns}\r
       dwas : tdnswinasync;\r
     {$endif}\r
 \r
@@ -49,7 +51,7 @@ type
     procedure asyncprocess(socketno:integer);\r
     procedure receivehandler(sender:tobject;error:word);\r
     function sendquery(socketno:integer;const packet:tdnspacket;len:integer):boolean;\r
-    {$ifdef mswindows}\r
+    {$ifdef winasyncdns}\r
       procedure winrequestdone(sender:tobject;error:word);\r
     {$endif}\r
 \r
@@ -110,7 +112,7 @@ begin
     end;\r
   end;\r
 \r
-  {$ifdef mswindows}\r
+  {$ifdef winasyncdns}\r
   if assigned(dwas) then begin\r
     dwas.release;\r
     dwas := nil;\r
@@ -273,7 +275,7 @@ begin
     requestaf := overrideaf;\r
   end;\r
 \r
-  {$ifdef mswindows}\r
+  {$ifdef winasyncdns}\r
     if usewindns and (addr = '') then begin\r
       dwas := tdnswinasync.create;\r
       dwas.onrequestdone := winrequestdone;\r
@@ -305,7 +307,7 @@ end;
 \r
 procedure tdnsasync.reverselookup;\r
 begin\r
-  {$ifdef mswindows}\r
+  {$ifdef winasyncdns}\r
     if usewindns and (addr = '') then begin\r
       dwas := tdnswinasync.create;\r
       dwas.onrequestdone := winrequestdone;\r
@@ -342,7 +344,7 @@ procedure tdnsasync.cancel;
 var\r
   socketno : integer;\r
 begin\r
-  {$ifdef mswindows}\r
+  {$ifdef winasyncdns}\r
     if assigned(dwas) then begin\r
       dwas.release;\r
       dwas := nil;\r
@@ -365,7 +367,7 @@ begin
   onrequestdone(self,0);\r
 end;\r
 \r
-{$ifdef mswindows}\r
+{$ifdef winasyncdns}\r
   procedure tdnsasync.winrequestdone(sender:tobject;error:word);\r
  \r
   begin\r