X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/987e8123d8ba3201ed2690004cfefd7983ff7487..968c333d05db5d5ecf3599f8e304c67e64f21159:/lcorernd.pas?ds=inline

diff --git a/lcorernd.pas b/lcorernd.pas
index 64759e8..648c87a 100644
--- a/lcorernd.pas
+++ b/lcorernd.pas
@@ -111,7 +111,7 @@ function randominteger(i:longint):longint;
 function randombits(b:integer):longint;
 
 {generate a version 4 random uuid}
-function generate_uuid:string;
+function generate_uuid:ansistring;
 
 {$ifndef nolcorernd}
 
@@ -132,12 +132,12 @@ implementation
 
 {$ifndef nolcorernd}
 uses
-  {$ifdef win32}windows,activex,{$endif}
+  {$ifdef mswindows}windows,activex,{$endif}
   {$ifdef unix}
     {$ifdef ver1_0}
       linux,
     {$else}
-      baseunix,unix,unixutil,
+      baseunix,unix,unixutil,sockets,
     {$endif}
   {$endif}
   fastmd5,sysutils;
@@ -165,7 +165,7 @@ var
   pool:array[0..(pooldwords+seeddwords-1)] of wordtype;
   reseedcountdown:integer;
 
-{$ifdef win32}
+{$ifdef mswindows}
 function collect_seeding(var output;const bufsize:integer):integer;
 var
   l:packed record
@@ -402,12 +402,12 @@ begin
 end;
 
 const
-  ch:array[0..15] of char='0123456789abcdef';
+  ch:array[0..15] of ansichar='0123456789abcdef';
 
-function generate_uuid:string;
+function generate_uuid:ansistring;
 var
   buf:array[0..7] of word;
-function inttohex(w:word):string;
+function inttohex(w:word):ansistring;
 begin
   result := ch[w shr 12] + ch[(w shr 8) and $f] + ch[(w shr 4) and $f] + ch[w and $f];
 end;