From dced688c9770bed06a257739b6d5b78852ce3602 Mon Sep 17 00:00:00 2001
From: paweld <biuro@paweld.it>
Date: Tue, 5 Mar 2024 21:24:59 +0100
Subject: [PATCH] fixed compilation in delphi

---
 generator/Common/generate.common.pas | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/generator/Common/generate.common.pas b/generator/Common/generate.common.pas
index 81704f9..18c902e 100644
--- a/generator/Common/generate.common.pas
+++ b/generator/Common/generate.common.pas
@@ -160,16 +160,20 @@ function TGenerator.GenerateProgressBar(APBPosition, APBMax, APBWIdth, AFileSize
     ATimeElapsed)]);
 end;
 
-function TGenerator.Rng1brc(Range: longint): longint;
+function TGenerator.Rng1brc(Range: Integer): Integer;
 var
   s0, s1, s2: Cardinal;
+  i0, i1: Int64;
 begin
   s0 := rndState[0];
   s1 := rndState[1] xor s0;
-  s2 := ((s1 * 3) xor 5) * 7;
-  Result := longint(Int64(s2 * range) shr 32);
+  i0 := ((Int64(s1) * 3) xor 5) * 7;
+  s2 := i0 and $FFFFFFFF;
+  i1 := Int64(s2) * range;
+  Result := Integer(i1 shr 32);
   rndState[0] := s2;
-  rndState[1] := s0 xor (s1 shl 9);
+  i0 := s0 xor (Int64(s1) shl 9);
+  rndState[1] := i0 and $FFFFFFFF;
 end;
 
 procedure TGenerator.Generate;