X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/ed1d49cbe548d9fb26a50f1b2381b693c3c01790..8a616f3f3967a8446407e6a63f675d19191ad568:/dnsasync.pas?ds=inline

diff --git a/dnsasync.pas b/dnsasync.pas
index c13f6ab..01bc2ff 100644
--- a/dnsasync.pas
+++ b/dnsasync.pas
@@ -11,7 +11,7 @@ unit dnsasync;
 interface
 
 uses
-  {$ifdef win32}
+  {$ifdef mswindows}
     dnswin,
   {$endif}
   lsocket,lcore,
@@ -39,7 +39,7 @@ type
 
     dnsserverids : array[0..numsock-1] of integer;
     startts:double;
-    {$ifdef win32}
+    {$ifdef mswindows}
       dwas : tdnswinasync;
     {$endif}
 
@@ -49,7 +49,7 @@ type
     procedure asyncprocess(socketno:integer);
     procedure receivehandler(sender:tobject;error:word);
     function sendquery(socketno:integer;const packet:tdnspacket;len:integer):boolean;
-    {$ifdef win32}
+    {$ifdef mswindows}
       procedure winrequestdone(sender:tobject;error:word);
     {$endif}
 
@@ -199,7 +199,7 @@ begin
   end;
   destinations[socketno] := destination;
 
-  {$ifdef ipv6}{$ifdef win32}
+  {$ifdef ipv6}{$ifdef mswindows}
   if destinations[socketno].family = AF_INET6 then if (requestaf = useaf_default) then requestaf := useaf_preferv6;
   {$endif}{$endif}
 
@@ -265,7 +265,7 @@ begin
 
   if overrideaf = useaf_default then begin
     {$ifdef ipv6}
-      {$ifdef win32}if not (usewindns and (addr = '')) then{$endif}
+      {$ifdef mswindows}if not (usewindns and (addr = '')) then{$endif}
       initpreferredmode;
     {$endif}
     requestaf := useaf;
@@ -273,7 +273,7 @@ begin
     requestaf := overrideaf;
   end;
 
-  {$ifdef win32}
+  {$ifdef mswindows}
     if usewindns and (addr = '') then begin
       dwas := tdnswinasync.create;
       dwas.onrequestdone := winrequestdone;
@@ -305,7 +305,7 @@ end;
 
 procedure tdnsasync.reverselookup;
 begin
-  {$ifdef win32}
+  {$ifdef mswindows}
     if usewindns and (addr = '') then begin
       dwas := tdnswinasync.create;
       dwas.onrequestdone := winrequestdone;
@@ -342,7 +342,7 @@ procedure tdnsasync.cancel;
 var
   socketno : integer;
 begin
-  {$ifdef win32}
+  {$ifdef mswindows}
     if assigned(dwas) then begin
       dwas.release;
       dwas := nil;
@@ -365,7 +365,7 @@ begin
   onrequestdone(self,0);
 end;
 
-{$ifdef win32}
+{$ifdef mswindows}
   procedure tdnsasync.winrequestdone(sender:tobject;error:word);
  
   begin