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

* optimization of TRttiInstanceType.ResolveExtendedDeclaredProperties

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-23 18:02:25 +01:00
parent e552165b7a
commit 1f19edef00
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6549,7 +6549,6 @@ begin
if TP^.PropParams <> nil then if TP^.PropParams <> nil then
begin begin
Dec(PropCount); Dec(PropCount);
SetLength(FDeclaredProperties, PropCount);
continue; continue;
end; end;
Prop := TRttiProperty(GRttiPool[FUsePublishedOnly].GetByHandle(TP)); Prop := TRttiProperty(GRttiPool[FUsePublishedOnly].GetByHandle(TP));
@ -6564,6 +6563,7 @@ begin
Inc(J); Inc(J);
end; end;
finally finally
SetLength(FDeclaredProperties, PropCount);
end; end;
end; end;