paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 00:08:43 +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
begin
Dec(PropCount);
SetLength(FDeclaredProperties, PropCount);
continue;
end;
Prop := TRttiProperty(GRttiPool[FUsePublishedOnly].GetByHandle(TP));
@ -6564,6 +6563,7 @@ begin
Inc(J);
end;
finally
SetLength(FDeclaredProperties, PropCount);
end;
end;