Call GetNext twice as many times to distribute seed across the whole buffer even for single byte seeds
authorunc0rr
Wed, 02 May 2018 23:07:41 +0200
changeset 13363 a79c1206bacd
parent 13362 030b085b182f
child 13364 7d772358dc22
Call GetNext twice as many times to distribute seed across the whole buffer even for single byte seeds
hedgewars/uRandom.pas
--- a/hedgewars/uRandom.pas	Wed May 02 15:29:21 2018 -0400
+++ b/hedgewars/uRandom.pas	Wed May 02 23:07:41 2018 +0200
@@ -79,7 +79,7 @@
 for i:= t to 54 do
     cirbuf[i]:= $A98765 + 68; // odd number
 
-for i:= 0 to 1023 do
+for i:= 0 to 2047 do
    GetNext;
 end;