paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-25 09:10:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: reuse existing rtticontext, still not Delphi compatible, issue 38812, from Henrique Gottardi Werlang

Browse Source
This commit is contained in:
mattias 2021-04-30 09:17:33 +00:00
parent e36441b661
commit 0dd3a997c1
1 changed files with 3 additions and 3 deletions

6
packages/rtl/rtti.pas
View File

@ -1187,13 +1187,13 @@ begin
Name:=t.Name;
if isModule(t.Module) then
Name:=t.Module.Name+'.'+Name;
if FPool.hasOwnProperty(Name) then
Result:=TRttiType(FPool[Name])
if GRttiContext.FPool.hasOwnProperty(Name) then
Result:=TRttiType(GRttiContext.FPool[Name])
else
begin
Result := RttiTypeClass[T.Kind].Create(aTypeInfo);
FPool[Name]:=Result;
GRttiContext.FPool[Name]:=Result;
end;
end;