From: beware <beware@bircd.org>
Date: Thu, 13 Mar 2014 20:16:18 +0000 (+0000)
Subject: increase amount of seeding from /dev/urandom
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/f0a6e6591b3d306641b78dfed4a4066935e82096?ds=inline

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 3a8ea0c..8f79856 100644
--- a/lcorernd.pas
+++ b/lcorernd.pas
@@ -259,7 +259,7 @@ var
   f:file;
   a:integer;
   l:packed record
-    devrnd:array[0..3] of integer;
+    devrnd:array[0..7] of integer;
     rdtscbuf:array[0..1] of integer;
     tv:ttimeval;
     pid:integer;