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

* Patch from Henrique Werlang to correct sort order in GetMethods

Browse Source
This commit is contained in:
michael 2020-10-06 08:21:06 +00:00
parent 5aafee91b1
commit 69c9c7ce6d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl/rtti.pas
View File

@ -731,14 +731,15 @@ begin
Inc(MethodCount, BaseClass.StructTypeInfo.MethodCount);
BaseClass := BaseClass.GetAncestor;
end;
SetLength(Result, StructTypeInfo.MethodCount);
SetLength(Result, MethodCount);
BaseClass := Self;
MethodCount:=0;
while Assigned(BaseClass) do
begin
for A := 0 to Pred(BaseClass.StructTypeInfo.MethodCount) do
begin
Dec(MethodCount);
Result[MethodCount] := TRttiMethod.Create(BaseClass, BaseClass.StructTypeInfo.GetMethod(A));
Inc(MethodCount);
end;
BaseClass := BaseClass.GetAncestor;
end;