fix spelling mistakes

[lcore.git] / dnsasync.pas

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