From a16ec5bdc19194098a0da7f3e2f11ef03a781913 Mon Sep 17 00:00:00 2001
From: mattias <mattias@idefix.freepascal.org>
Date: Wed, 30 Oct 2019 11:56:41 +0000
Subject: [PATCH] rtl: added tkExtClass

---
 packages/rtl/typinfo.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/packages/rtl/typinfo.pas b/packages/rtl/typinfo.pas
index e9150a5..57f9d64 100644
--- a/packages/rtl/typinfo.pas
+++ b/packages/rtl/typinfo.pas
@@ -51,8 +51,9 @@ type
     //tkQWord,
     //tkInterfaceRaw,
     //tkUString,tkUChar,
-    tkHelper    // 19
+    tkHelper,   // 19
     //tkFile,
+    tkExtClass  // 20
     );
   TTypeKinds = set of TTypeKind;
 
@@ -332,6 +333,13 @@ type
     Ancestor: TTypeInfoClass external name 'ancestor';
   end;
 
+  { TTypeInfoExtClass - Kind = tkExtClass }
+
+  TTypeInfoExtClass = class external name 'rtl.tTypeInfoExtClass'(TTypeInfoClass)
+  public
+    JSClassName: String external name 'jsclass';
+  end;
+
   { TTypeInfoClassRef - class-of, Kind = tkClassRef }
 
   TTypeInfoClassRef = class external name 'rtl.tTypeInfoClassRef'(TTypeInfo)