RTL custom interface types as records

Src/AST/Myc.Ast.RTL.TypeRegistry.pas

@@ -113,15 +113,20 @@ end;
 
 class procedure TRtlTypeRegistry.RegisterType(Info: PTypeInfo);
 begin
-    if FKnownTypes.ContainsKey(Info) then
+    TMonitor.Enter(FKnownTypes);
-        exit;
-
-    EnterAnalysis(Info);
     try
-        var staticType := AnalyzeType(Info);
+        if FKnownTypes.ContainsKey(Info) then
-        FKnownTypes.Add(Info, staticType);
+            exit;
+
+        EnterAnalysis(Info);
+        try
+            var staticType := AnalyzeType(Info);
+            FKnownTypes.Add(Info, staticType);
+        finally
+            ExitAnalysis(Info);
+        end;
     finally
-        ExitAnalysis(Info);
+        TMonitor.Exit(FKnownTypes);
     end;
 end;