rtl: added tkExtClass

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)