paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:16:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Designer/LCL: Correctly align TMethodNameTable/TMethodNameTableEntry on platforms that require it (e.g. AARCH64)."

Browse Source 
This reverts commit 8253bd9f8f.
This commit is contained in:
rich2014 2024-02-03 08:57:47 +08:00
parent 671dee3744
commit 2e28bd8b6d
3 changed files with 6 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/jitclasses/demo/unit1.pas
View File

@ -267,20 +267,12 @@ begin
end;
type
tmethodnamerec =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
tmethodnamerec = packed record
name : pshortstring;
addr : codepointer;
end;
tmethodnametable =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
tmethodnametable = packed record
count : dword;
entries : packed array[0..0] of tmethodnamerec;
end;

12
designer/jitforms.pp
View File

@ -382,20 +382,12 @@ const
type
// these definitions are copied from typinfo.pp
TMethodNameRec =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
TMethodNameRec = packed record
Name : PShortString;
Addr : Pointer;
end;
TMethodNameTable =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
TMethodNameTable = packed record
Count : DWord;
// for runtime range checking it is important to give a range
Entries : packed array[0..1000000] of TMethodNameRec;

12
lcl/widgetset/wslclclasses.pp
View File

@ -204,20 +204,12 @@ begin
end;
type
TMethodNameTableEntry =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
TMethodNameTableEntry = packed record
Name: PShortstring;
Addr: Pointer;
end;
TMethodNameTable =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
TMethodNameTable = packed record
Count: DWord;
Entries: packed array[0..9999999] of TMethodNameTableEntry;
end;