From a6a40b11deb70dd15cfdcb02344d25faa82bf820 Mon Sep 17 00:00:00 2001
From: Freeman <vapaamies@yandex.ru>
Date: Thu, 18 Jun 2020 21:30:35 +0300
Subject: [PATCH] Minimal Unicode compiler support

---
 RTL/System.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/RTL/System.pas b/RTL/System.pas
index 1f6e10f..57cc75c 100644
--- a/RTL/System.pas
+++ b/RTL/System.pas
@@ -13,6 +13,8 @@ const
   RTLVersion = 15.2006;  // <---'
 {$IFEND}
 
+  UnicodeCompiler = CompilerVersion >= 20.0;
+  
 type
   PPAnsiChar = ^PAnsiChar;
 
@@ -92,6 +94,9 @@ const
   vtInterface  = 14;
   vtWideString = 15;
   vtInt64      = 16;
+{$IFDEF UnicodeCompiler}
+  vtUnicodeString = 17;
+{$ENDIF}
 
 type
   PVarRec = ^TVarRec;
@@ -114,6 +119,9 @@ type
       vtInterface:  (VInterface: Pointer);
       vtWideString: (VWideString: Pointer);
       vtInt64:      (VInt64: PInt64);
+    {$IFDEF UnicodeCompiler}
+      vtUnicodeString: (VUnicodeString: Pointer);
+    {$ENDIF}    
   end;
 
 procedure _Halt0;