From e397ace02c1a021bd375ff6101637b69d2d29a84 Mon Sep 17 00:00:00 2001
From: Freeman <vapaamies@yandex.ru>
Date: Wed, 24 Jun 2020 16:23:19 +0300
Subject: [PATCH] System.Random function bugfix

---
 RTL/System.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/RTL/System.pas b/RTL/System.pas
index 4f740ee..4b322a0 100644
--- a/RTL/System.pas
+++ b/RTL/System.pas
@@ -281,7 +281,7 @@ end;
 
 function _RandExt: Extended;
 begin
-  Result := 1 / RandInt(1, $FFFFFFFE);
+  Result := 1 / RandInt(2, $FFFFFFFF);
 end;
 
 procedure Randomize;