From 2fdece6eabe6d363b5fc79b18c3e10aad00a1129 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 16 Sep 2020 19:19:49 +0000
Subject: [PATCH] * Patch from Henrique Werlang to move TArray (bug ID 37759)

---
 packages/rtl/system.pas   | 2 ++
 packages/rtl/sysutils.pas | 2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/rtl/system.pas b/packages/rtl/system.pas
index 483dec4..7802b85 100644
--- a/packages/rtl/system.pas
+++ b/packages/rtl/system.pas
@@ -98,6 +98,8 @@ type
                     coLingCasing, coDigitAsNumbers, coStringSort});
   TCompareOptions = set of TCompareOption;
 
+  generic TArray<T> = array of T;
+
 {*****************************************************************************
             TObject, TClass, IUnknown, IInterface, TInterfacedObject
 *****************************************************************************}
diff --git a/packages/rtl/sysutils.pas b/packages/rtl/sysutils.pas
index aa20b15..692e051 100644
--- a/packages/rtl/sysutils.pas
+++ b/packages/rtl/sysutils.pas
@@ -655,8 +655,6 @@ Function EncodeHTMLEntities (S : String) : String;
   ---------------------------------------------------------------------}
 
 Type
-
-  generic TArray<T> = array of T;
   TCharArray = Array of char;
 
   TByteBitIndex = 0..7;