hedgewars/uRandom.pas
changeset 11827 4600dcb9db4f
parent 11046 47a8c19ecb60
child 13363 a79c1206bacd
--- 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);