X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/693e2ce95d2225be709499570ea94c324d663562..9763940f8849e5c807566157829a1e6d2c9172ee:/binipstuff.pas

diff --git a/binipstuff.pas b/binipstuff.pas
index 0b9fcb8..d622029 100644
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -13,7 +13,7 @@ interface
 {$include lcoreconfig.inc}
 
 uses
-{$ifndef win32}
+{$ifndef mswindows}
   sockets,
 {$endif}
   pgtypes;
@@ -25,7 +25,7 @@ uses
 
 const
   hexchars:array[0..15] of ansichar='0123456789abcdef';
-  {$ifdef win32}
+  {$ifdef mswindows}
     AF_INET=2;
     AF_INET6=23;
   {$else}
@@ -39,7 +39,7 @@ const
 type
   {$ifdef ipv6}
     
-    {$ifdef win32}
+    {$ifdef mswindows}
       {$define want_Tin6_addr}
     {$endif}
     {$ifdef ver1_0}
@@ -70,7 +70,7 @@ type
     {$endif}
   end;
 
-  {$ifdef win32}
+  {$ifdef mswindows}
     TInetSockAddr = packed Record
       family:Word;
       port  :Word;
@@ -334,7 +334,7 @@ written by beware
 
 - implementation does not depend on other ipv6 code such as the tin6_addr type,
   the parameter can also be untyped.
-- it is host endian neutral - binary format is aways network order
+- it is host endian neutral - binary format is always network order
 - it supports compression of zeroes
 - it supports ::ffff:192.168.12.34 style addresses
 - they are made to do the Right Thing, more efficient implementations are possible
@@ -386,7 +386,7 @@ begin
     end;
   end;
 
-  {run length atleast 2 0 words}
+  {run length at least 2 0 words}
   if (runlength = 1) then begin
     runlength := 0;
     runbegin := 0;