paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 19:10:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* access the legacy method table using the correct alignment

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-01-12 23:48:49 +01:00
parent bb5b9acbb2
commit 377bc0d311
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-fpcunit/src/testutils.pp
View File

@ -72,12 +72,20 @@ end;
procedure GetMethodList(AClass: TClass; AList: TStrings);
type
PMethodNameRec = ^TMethodNameRec;
TMethodNameRec = packed record
TMethodNameRec =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif}
record
name : pshortstring;
addr : codepointer;
end;
TMethodNameTable = packed record
TMethodNameTable =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif}
record
count : dword;
entries : packed array[0..0] of TMethodNameRec;
end;