lcorernd didnt work in 64 bits delphi

git-svn-id: file:///svnroot/lcore/trunk@156 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/lcorernd.pas b/lcorernd.pas
index d2788523f244b521f2a0fc9a7e7ed14c535a2c19..6f1fe4877cc44df1b1bd3333a423f14d66fff4d0 100644 (file)
--- a/lcorernd.pas
+++ b/lcorernd.pas
@@ -178,11 +178,11 @@ const
   halfhashsize=hashsize div 2;\r
   hashdwords=hashsize div wordsize;\r
   pooldwords=3*hashdwords;\r
   halfhashsize=hashsize div 2;\r
   hashdwords=hashsize div wordsize;\r
   pooldwords=3*hashdwords;\r

-  seeddwords=32;\r
+  seeddwords=40;\r

   hashpasssize=48; {this number has to be small enough that hashing this size uses only one block transform}\r
 \r
 var\r
   hashpasssize=48; {this number has to be small enough that hashing this size uses only one block transform}\r
 \r
 var\r

-  {the seed part of this buffer must be at least as big as the OS seed (windows: 120 bytes, unix: 36 bytes)}\r
+  //the seed part of this buffer must be at least as big as the OS seed (windows: 120 bytes for 32 bits, 160 bytes for 64 bits, unix: 36 bytes)\r

   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