From 30678055c2962c757a3490c27896279be13621cb Mon Sep 17 00:00:00 2001
From: mattias <mattias@idefix.freepascal.org>
Date: Sun, 10 Jan 2021 23:00:22 +0000
Subject: [PATCH] packages: rtl: fixed TTypeInfoRecord.RecordType

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

diff --git a/packages/rtl/typinfo.pas b/packages/rtl/typinfo.pas
index 6a3361b..8541163 100644
--- a/packages/rtl/typinfo.pas
+++ b/packages/rtl/typinfo.pas
@@ -278,7 +278,7 @@ type
 
   TTypeInfoRecord = class external name 'rtl.tTypeInfoRecord'(TTypeInfoStruct)
   public
-    RecordType: TJSObject external name 'record';
+    RecordType: TJSObject external name '$record';  // only records with class vars, else jsundefined
   end;
 
   { TTypeInfoClass - Kind = tkClass }