ソースを参照

Merge branch 'master' into travis

Ugochukwu Mmaduekwe 7 年 前
コミット
c99220a037
1 ファイル変更5 行追加1 行削除
  1. 5 1
      CryptoLib/src/Utils/Randoms/ClpPcgRandomMinimal.pas

+ 5 - 1
CryptoLib/src/Utils/Randoms/ClpPcgRandomMinimal.pas

@@ -251,10 +251,14 @@ begin
 end;
 end;
 
 
 constructor TPcg.Create();
 constructor TPcg.Create();
+var
+  LinitState, LinitSeq: UInt64;
 begin
 begin
   // ==> initializes using default seeds. you can change it to any reasonable
   // ==> initializes using default seeds. you can change it to any reasonable
   // value
   // value
-  Seed(UInt64($853C49E6748FEA9B), UInt64($DA3E39CB94B95BDB));
+  LinitState := UInt64($853C49E6748FEA9B);
+  LinitSeq := UInt64($DA3E39CB94B95BDB);
+  Seed(LinitState, LinitSeq);
 end;
 end;
 
 
 constructor TPcg.Create(initState: UInt64; initSeq: UInt64);
 constructor TPcg.Create(initState: UInt64; initSeq: UInt64);