From 846b223e79b75c26bd48d53877e4166de6ab21ce Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Fri, 28 May 2021 11:29:53 -0300
Subject: [PATCH] Typeinfo of external classes.

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

diff --git a/packages/rtl/typinfo.pas b/packages/rtl/typinfo.pas
index cd01c4f..610fd0d 100644
--- a/packages/rtl/typinfo.pas
+++ b/packages/rtl/typinfo.pas
@@ -298,8 +298,9 @@ type
 
   { TTypeInfoExtClass - Kind = tkExtClass }
 
-  TTypeInfoExtClass = class external name 'rtl.tTypeInfoExtClass'(TTypeInfoClass)
+  TTypeInfoExtClass = class external name 'rtl.tTypeInfoExtClass'(TTypeInfo)
   public
+    Ancestor: TTypeInfoExtClass external name 'ancestor';
     JSClassName: String external name 'jsclass';
   end;