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