paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 15:37:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix #40737: make TMethodNameTable/TMethodNameTableEntry compatible with FPC 3.3.1

Browse Source 
The change follows
170c05592b

Patch by Dean Mustakinov, issue #40737.
This commit is contained in:
rich2014 2024-02-04 21:54:10 +08:00
parent 02ddfe3ecd
commit 21fc3631d5
3 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -267,12 +267,20 @@ begin
end; end;
type type
tmethodnamerec = packed record tmethodnamerec =
{$if (FPC_FULLVERSION<30301) or NOT defined(FPC_REQUIRES_PROPER_ALIGNMENT)}
packed
{$endif}
record
name : pshortstring; name : pshortstring;
addr : codepointer; addr : codepointer;
end; end;
tmethodnametable = packed record tmethodnametable =
{$if (FPC_FULLVERSION<30301) or NOT defined(FPC_REQUIRES_PROPER_ALIGNMENT)}
packed
{$endif}
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,12 +382,20 @@ const
type type
// these definitions are copied from typinfo.pp // these definitions are copied from typinfo.pp
TMethodNameRec = packed record TMethodNameRec =
{$if (FPC_FULLVERSION<30301) or NOT defined(FPC_REQUIRES_PROPER_ALIGNMENT)}
packed
{$endif}
record
Name : PShortString; Name : PShortString;
Addr : Pointer; Addr : Pointer;
end; end;
TMethodNameTable = packed record TMethodNameTable =
{$if (FPC_FULLVERSION<30301) or NOT defined(FPC_REQUIRES_PROPER_ALIGNMENT)}
packed
{$endif}
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,12 +204,20 @@ begin
end; end;
type type
TMethodNameTableEntry = packed record TMethodNameTableEntry =
{$if (FPC_FULLVERSION<30301) or NOT defined(FPC_REQUIRES_PROPER_ALIGNMENT)}
packed
{$endif}
record
Name: PShortstring; Name: PShortstring;
Addr: Pointer; Addr: Pointer;
end; end;
TMethodNameTable = packed record TMethodNameTable =
{$if (FPC_FULLVERSION<30301) or NOT defined(FPC_REQUIRES_PROPER_ALIGNMENT)}
packed
{$endif}
record
Count: DWord; Count: DWord;
Entries: packed array[0..9999999] of TMethodNameTableEntry; Entries: packed array[0..9999999] of TMethodNameTableEntry;
end; end;