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

* recordrtti needs to override getmethods. Fixes issue #40951

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-10-15 13:05:44 +02:00
parent dc2261eff0
commit 742158b678
1 changed files with 6 additions and 0 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

@ -795,6 +795,7 @@ type
FDeclaredMethods : TRttiMethodArray;
FMethodsResolved : Boolean;
protected
function GetMethods: TRttiMethodArray; override;
procedure ResolveFields;
procedure ResolveMethods;
procedure ResolveProperties;
@ -6121,6 +6122,11 @@ end;
{ TRttiRecordType }
function TRttiRecordType.GetMethods: TRttiMethodArray;
begin
Result:=GetDeclaredMethods;
end;
procedure TRttiRecordType.ResolveFields;
Var
Tbl : PExtendedFieldInfoTable;