increase amount of seeding from /dev/urandom

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

diff --git a/lcorernd.pas b/lcorernd.pas
index 3a8ea0c993b280d0cefc63024a5367a31c317922..8f79856745c7580f669f268a3f51a0c2dfab41af 100644 (file)
--- a/lcorernd.pas
+++ b/lcorernd.pas
@@ -259,7 +259,7 @@ var
   f:file;\r
   a:integer;\r
   l:packed record\r
   f:file;\r
   a:integer;\r
   l:packed record\r

-    devrnd:array[0..3] of integer;\r
+    devrnd:array[0..7] of integer;\r

     rdtscbuf:array[0..1] of integer;\r
     tv:ttimeval;\r
     pid:integer;\r
     rdtscbuf:array[0..1] of integer;\r
     tv:ttimeval;\r
     pid:integer;\r