paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Small correction in property resolve

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-19 16:05:09 +02:00
parent b0a82993e6
commit fac7c21b9b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -5916,7 +5916,10 @@ begin
Inc(IdxCount); Inc(IdxCount);
obj := GRttiPool[FUsePublishedOnly].GetByHandle(TP); obj := GRttiPool[FUsePublishedOnly].GetByHandle(TP);
if Assigned(obj) then if Assigned(obj) then
FProperties[I]:=obj as TRttiProperty begin
Prop:=obj as TRttiProperty;
FProperties[I]:=Prop;
end
else else
begin begin
Prop:=TRttiProperty.Create(Self, TP); Prop:=TRttiProperty.Create(Self, TP);
@ -5927,6 +5930,7 @@ begin
Prop.FVisibility:=MemberVisibilities[Info^.Visibility]; Prop.FVisibility:=MemberVisibilities[Info^.Visibility];
Prop.FStrictVisibility:=Info^.StrictVisibility; Prop.FStrictVisibility:=Info^.StrictVisibility;
end; end;
FPropertiesResolved:=True;
finally finally
if Assigned(List) then if Assigned(List) then
FreeMem(List); FreeMem(List);