--- a/hedgewars/uRandom.pas Sun May 15 13:18:34 2016 +0200
+++ b/hedgewars/uRandom.pas Sun May 15 14:29:37 2016 +0300
@@ -49,16 +49,14 @@
end;
function GetNext: Longword; inline;
-var s : string;
begin
-n:= (n + 1) and $3F;
-cirbuf[n]:=
+ n:= (n + 1) and $3F;
+ cirbuf[n]:=
(cirbuf[(n + 40) and $3F] + {n - 24 mod 64}
cirbuf[(n + 9) and $3F]) {n - 55 mod 64}
and $7FFFFFFF; {mod 2^31}
- GetNext:= cirbuf[n];
- str(GetNext, s);
+ GetNext:= cirbuf[n];
end;
procedure SetRandomSeed(Seed: shortstring; dropAdditionalPart: boolean);