paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 06:39:26 +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; end;
type type
tmethodnamerec = tmethodnamerec = packed record
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
name : pshortstring; name : pshortstring;
addr : codepointer; addr : codepointer;
end; end;
tmethodnametable = tmethodnametable = packed record
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
count : dword; count : dword;
entries : packed array[0..0] of tmethodnamerec; entries : packed array[0..0] of tmethodnamerec;
end; end;

12
designer/jitforms.pp
View File

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

12
lcl/widgetset/wslclclasses.pp
View File

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