From d43853008845b80477f4a456e9fb6c4d46e3ef21 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 25 May 2005 21:35:29 +0000
Subject: [PATCH] + Fix for bug #3917 by Michael Deutschmann

git-svn-id: trunk@112 -
---
 rtl/inc/system.inc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index c14212f6a4..440566fa22 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -410,8 +410,9 @@ var
   y: longint;
   kk: longint;
 begin
-  if (mti >= MT19937N) or
-     (randseed <> oldrandseed) { generate MT19937N longints at one time }
+  if RandSeed<>OldRandSeed then
+    mti:=MT19937N+1;
+  if (mti >= MT19937N) { generate MT19937N longints at one time }
   then begin
      if mti = (MT19937N+1) then  // if sgenrand_MT19937() has not been called,
        begin