X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/968c333d05db5d5ecf3599f8e304c67e64f21159..1a8d0bce39fe4edf7443bde884fefe78412fe521:/dnsasync.pas?ds=sidebyside

diff --git a/dnsasync.pas b/dnsasync.pas
index 01bc2ff..68b5c1f 100644
--- a/dnsasync.pas
+++ b/dnsasync.pas
@@ -11,7 +11,7 @@ unit dnsasync;
 interface
 
 uses
-  {$ifdef mswindows}
+  {$ifdef winasyncdns}
     dnswin,
   {$endif}
   lsocket,lcore,
@@ -39,7 +39,7 @@ type
 
     dnsserverids : array[0..numsock-1] of integer;
     startts:double;
-    {$ifdef mswindows}
+    {$ifdef winasyncdns}
       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 mswindows}
+    {$ifdef winasyncdns}
       procedure winrequestdone(sender:tobject;error:word);
     {$endif}
 
@@ -57,7 +57,7 @@ type
     onrequestdone:tsocketevent;
 
     //addr and port allow the application to specify a dns server specifically
-    //for this dnsasync object. This is not a reccomended mode of operation
+    //for this dnsasync object. This is not a recommended mode of operation
     //because it limits the app to one dns server but is kept for compatibility
     //and special uses.
     addr,port:ansistring;
@@ -69,7 +69,7 @@ type
     procedure dnsresultbin(var binip:tbinip); //get result of dnslookup as a tbinip
     property dnsresultlist : tbiniplist read fresultlist;
     procedure forwardlookup(const name:ansistring); //start forward lookup,
-                                                //preffering ipv4
+                                                //preferring ipv4
     procedure reverselookup(const binip:tbinip); //start reverse lookup
     procedure customlookup(const name:ansistring;querytype:integer); //start custom type lookup
 
@@ -110,7 +110,7 @@ begin
     end;
   end;
 
-  {$ifdef mswindows}
+  {$ifdef winasyncdns}
   if assigned(dwas) then begin
     dwas.release;
     dwas := nil;
@@ -273,7 +273,7 @@ begin
     requestaf := overrideaf;
   end;
 
-  {$ifdef mswindows}
+  {$ifdef winasyncdns}
     if usewindns and (addr = '') then begin
       dwas := tdnswinasync.create;
       dwas.onrequestdone := winrequestdone;
@@ -305,7 +305,7 @@ end;
 
 procedure tdnsasync.reverselookup;
 begin
-  {$ifdef mswindows}
+  {$ifdef winasyncdns}
     if usewindns and (addr = '') then begin
       dwas := tdnswinasync.create;
       dwas.onrequestdone := winrequestdone;
@@ -342,7 +342,7 @@ procedure tdnsasync.cancel;
 var
   socketno : integer;
 begin
-  {$ifdef mswindows}
+  {$ifdef winasyncdns}
     if assigned(dwas) then begin
       dwas.release;
       dwas := nil;
@@ -365,7 +365,7 @@ begin
   onrequestdone(self,0);
 end;
 
-{$ifdef mswindows}
+{$ifdef winasyncdns}
   procedure tdnsasync.winrequestdone(sender:tobject;error:word);
  
   begin