X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/250fdcdbf77f0296f31391eb3a8b87de195aad92..e2488d880e54b1b938409d3870c28ea952c6d51a:/lcorelocalips.pas

diff --git a/lcorelocalips.pas b/lcorelocalips.pas
index aafddf7..8698a8c 100644
--- a/lcorelocalips.pas
+++ b/lcorelocalips.pas
@@ -36,7 +36,9 @@ notes:
 }
 
 unit lcorelocalips;
-
+{$ifdef fpc}
+  {$mode delphi}
+{$endif}
 interface
 
 uses binipstuff,pgtypes;
@@ -51,7 +53,7 @@ function getv6localips:tbiniplist;
 
 function getsystemdnsservers:tbiniplist;
 
-{$ifdef win32}
+{$ifdef mswindows}
 function gethostname:ansistring;
 {$endif}
 
@@ -284,7 +286,7 @@ end;
 
 
 
-{$ifdef win32}
+{$ifdef mswindows}
   const
     MAX_HOSTNAME_LEN = 132;
     MAX_DOMAIN_NAME_LEN = 132;
@@ -350,7 +352,7 @@ end;
 
 function getsystemdnsservers:tbiniplist;
 var
-  {$ifdef win32}
+  {$ifdef mswindows}
     fixed_info : pfixed_info;
     currentdnsserver : pip_addr_string;
   {$else}
@@ -364,7 +366,7 @@ begin
 
   result := biniplist_new;
 
-  {$ifdef win32}
+  {$ifdef mswindows}
     fixed_info := callgetnetworkparams;
     if fixed_info = nil then exit;
 
@@ -400,7 +402,7 @@ begin
   {$endif}
 end;
 
-{$ifdef win32}
+{$ifdef mswindows}
 function gethostname:ansistring;
 var
     fixed_info : pfixed_info;
@@ -416,4 +418,4 @@ begin
 end;
 {$endif}
 
-end.
+end.
\ No newline at end of file