From: beware <beware@bircd.org>
Date: Wed, 11 Aug 2021 05:41:17 +0000 (+0000)
Subject: lcorernd didnt work in 64 bits delphi
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/fed3bacaa7e5da92ab4cf44995b5a2bc26a81faa

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 d278852..6f1fe48 100644
--- a/lcorernd.pas
+++ b/lcorernd.pas
@@ -178,11 +178,11 @@ const
   halfhashsize=hashsize div 2;
   hashdwords=hashsize div wordsize;
   pooldwords=3*hashdwords;
-  seeddwords=32;
+  seeddwords=40;
   hashpasssize=48; {this number has to be small enough that hashing this size uses only one block transform}
 
 var
-  {the seed part of this buffer must be at least as big as the OS seed (windows: 120 bytes, unix: 36 bytes)}
+  //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)
   pool:array[0..(pooldwords+seeddwords-1)] of wordtype;
   reseedcountdown:integer;