Browse Source

fixed internal error (200706094) when compiling with NewPascal

Ugochukwu Mmaduekwe 7 years ago
parent
commit
08cd118f66
1 changed files with 5 additions and 1 deletions
  1. 5 1
      CryptoLib/src/Utils/Randoms/ClpPcgRandomMinimal.pas

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

@@ -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);