From 1f19edef004bad0ea37aa0f7dfdef2139de19ab4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 23 Dec 2024 18:02:25 +0100
Subject: [PATCH] * optimization of
 TRttiInstanceType.ResolveExtendedDeclaredProperties

---
 packages/rtl-objpas/src/inc/rtti.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index c60bc4c0cc..99cb4e6bd7 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -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;