From 0fbb1fe9e8b1a883bce39ecf1cb38fd8220b8bb2 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 22 Apr 2004 17:10:38 +0000
Subject: [PATCH]   * random(int64) added

---
 rtl/inc/system.inc  | 10 +++++++++-
 rtl/inc/systemh.inc |  6 +++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index 5cb0245649..bd924531af 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -461,6 +461,11 @@ begin
   random := longint((int64(cardinal(genrand_MT19937))*l) shr 32);
 end;
 
+function random(l:int64): int64;
+begin
+  random := longint((int64(cardinal(genrand_MT19937))*l) shr 32);
+end;
+
 function random: extended;
 begin
   random := cardinal(genrand_MT19937) * (1.0/(int64(1) shl 32));
@@ -876,7 +881,10 @@ end;
 
 {
   $Log$
-  Revision 1.54  2004-02-20 11:01:20  daniel
+  Revision 1.55  2004-04-22 17:10:38  peter
+    * random(int64) added
+
+  Revision 1.54  2004/02/20 11:01:20  daniel
     * Applied
 
   Revision 1.53  2004/02/06 20:17:13  daniel
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 7b9d8d1837..a9a564cc21 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -423,6 +423,7 @@ Function  Swap (X:Int64):Int64;{$ifdef SYSTEMINLINE}inline;{$endif}
 
 Function  Random(l:cardinal):cardinal;
 Function  Random(l:longint):longint;
+Function  Random(l:int64):int64;
 Function  Random: extended;
 Procedure Randomize;
 
@@ -736,7 +737,10 @@ const
 
 {
   $Log$
-  Revision 1.87  2004-03-23 22:35:45  peter
+  Revision 1.88  2004-04-22 17:10:38  peter
+    * random(int64) added
+
+  Revision 1.87  2004/03/23 22:35:45  peter
     * new compiler has smallint,longint,word internal defined
 
   Revision 1.86  2004/02/20 22:15:16  florian