increase amount of seeding from /dev/urandom

[lcore.git] / lcorernd.pas

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
-    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