Changeset 129 for trunk

Timestamp:

May 1, 2018, 3:26:30 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Range error in random generator for 32-bit architecture.

File:

• trunk/Protocol.pas (modified) (1 diff)

trunk/Protocol.pas

@@ -1769 +1769 @@
   Temp: LongInt;
 begin
-  Temp := LongInt(134775813 * DelphiRandSeed + 1);
-  DelphiRandSeed := Temp;
+  Temp := LongInt(Int64(134775813) * Int64(DelphiRandSeed) + 1);
+  DelphiRandSeed := LongInt(Temp);
   Result := (UInt64(Cardinal(pi_Max)) * UInt64(Cardinal(Temp))) shr 32;
 end;