From da46ad2ea37ae0f4af8f325d5afea350f257d1e9 Mon Sep 17 00:00:00 2001
From: Andreas Hausladen <Andreas.Hausladen@gmail.com>
Date: Tue, 9 Jul 2019 20:05:18 +0200
Subject: [PATCH] Fixed Delphi 2009-XE compilation

---
 jcl/source/common/JclBase.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/jcl/source/common/JclBase.pas b/jcl/source/common/JclBase.pas
index 95a8594ccd..f4f164fc8b 100644
--- a/jcl/source/common/JclBase.pas
+++ b/jcl/source/common/JclBase.pas
@@ -161,6 +161,11 @@   ULARGE_INTEGER = record
   TJclULargeInteger = ULARGE_INTEGER;
   PJclULargeInteger = PULARGE_INTEGER;
 
+  {$IFNDEF COMPILER16_UP}
+  LONG = Longint;
+  {$EXTERNALSYM LONG}
+  {$ENDIF ~COMPILER16_UP}
+
 // Dynamic Array support
 type
   TDynByteArray          = array of Byte;