From 814478ac333f49bcb9b380ef5dfa5afdba5bb4cf Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 30 Aug 2004 17:36:18 +0000
Subject: [PATCH]   * fixed random(int64)

---
 rtl/inc/system.inc | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index ab84217c28..88558034ee 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -459,7 +459,9 @@ end;
 
 function random(l:int64): int64;
 begin
-  random:= longint((int64(cardinal(genrand_MT19937))*l) shr 32);
+{$ifndef VER_1_0}
+  random := int64((qword(cardinal(genrand_MT19937)) or ((qword(cardinal(genrand_MT19937)) shl 32))) and $7fffffffffffffff) mod l;
+{$endif VER_1_0}
 end;
 
 function random: extended;
@@ -881,7 +883,10 @@ end;
 
 {
   $Log$
-  Revision 1.61  2004-08-29 10:23:12  peter
+  Revision 1.62  2004-08-30 17:36:18  jonas
+    * fixed random(int64)
+
+  Revision 1.61  2004/08/29 10:23:12  peter
   no message
 
   Revision 1.60  2004/07/18 20:21:44  florian