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

* Fix in overloads of GetFieldList

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-17 23:58:42 +01:00
parent 8122defbd8
commit f6ce76b638
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/objpas/typinfo.pp
View File

@ -2420,18 +2420,6 @@ begin
end;
Function GetFieldList(TypeInfo: PTypeInfo; out FieldList : PExtendedFieldInfoTable; Visibilities: TVisibilityClasses): SizeInt;
begin
if TypeInfo^.Kind=tkRecord then
Result:=GetRecordFieldList(PRecordData(GetTypeData(TypeInfo)),FieldList,Visibilities)
else if TypeInfo^.Kind=tkClass then
Result:=GetFieldInfos((PClassData(GetTypeData(TypeInfo))^.ClassType),FieldList,Visibilities)
else
Result:=0
end;
Function GetFieldList(AClass: TClass; out FieldList: PExtendedFieldInfoTable; Visibilities: TVisibilityClasses): Integer;
Var
@ -2449,13 +2437,24 @@ begin
end;
end;
Function GetFieldList(Instance: TObject; out FieldList: PExtendedFieldInfoTable; Visibilities: TVisibilityClasses): Integer;
begin
Result:=GetFieldList(Instance.ClassType,FieldList,Visibilities);
end;
Function GetFieldList(TypeInfo: PTypeInfo; out FieldList : PExtendedFieldInfoTable; Visibilities: TVisibilityClasses): SizeInt;
begin
if TypeInfo^.Kind=tkRecord then
Result:=GetRecordFieldList(PRecordData(GetTypeData(TypeInfo)),FieldList,Visibilities)
else if TypeInfo^.Kind=tkClass then
Result:=GetFieldList(GetTypeData(TypeInfo)^.ClassType,FieldList,Visibilities)
else
Result:=0
end;
{ -- Methods -- }
Function GetMethodInfos(aRecord: PRecordData; MethodList: PRecordMethodInfoTable; Visibilities: TVisibilityClasses): Integer;