add cpu defines for x64 support and unification between delphi and fpc

[lcore.git] / lcorernd.pas

diff --git a/lcorernd.pas b/lcorernd.pas
index 3e43bb124b2d6f1dd22869f2940b619c3bd27210..648c87aa67cbb357ab4cd7d19c479dda6caa6d7d 100644 (file)
--- a/lcorernd.pas
+++ b/lcorernd.pas
@@ -132,7 +132,7 @@ implementation
 \r
 {$ifndef nolcorernd}\r
 uses\r
 \r
 {$ifndef nolcorernd}\r
 uses\r

-  {$ifdef win32}windows,activex,{$endif}\r
+  {$ifdef mswindows}windows,activex,{$endif}\r

   {$ifdef unix}\r
     {$ifdef ver1_0}\r
       linux,\r
   {$ifdef unix}\r
     {$ifdef ver1_0}\r
       linux,\r


@@ -165,7 +165,7 @@ var
   pool:array[0..(pooldwords+seeddwords-1)] of wordtype;\r
   reseedcountdown:integer;\r
 \r
   pool:array[0..(pooldwords+seeddwords-1)] of wordtype;\r
   reseedcountdown:integer;\r
 \r

-{$ifdef win32}\r
+{$ifdef mswindows}\r

 function collect_seeding(var output;const bufsize:integer):integer;\r
 var\r
   l:packed record\r
 function collect_seeding(var output;const bufsize:integer):integer;\r
 var\r
   l:packed record\r