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

* Fixed padding of CFI-structures on non-32bit architectures

Browse Source
This commit is contained in:
Joost van der Sluis 2022-06-13 00:57:40 +02:00
parent def37052f1
commit 3434d10968
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cfidwarf.pas
View File

@ -419,7 +419,7 @@ implementation
}
generate_initial_instructions(list);
list.concat(cai_align.create_zeros(4));
list.concat(cai_align.create_zeros(sizeof(pint)));
list.concat(tai_label.create(lenendlabel));
lenstartlabel:=nil;
lenendlabel:=nil;
@ -483,7 +483,7 @@ implementation
end;
DW_CFA_End_Frame :
begin
list.concat(cai_align.create_zeros(4));
list.concat(cai_align.create_zeros(sizeof(pint)));
list.concat(tai_label.create(lenendlabel));
lenstartlabel:=nil;
lenendlabel:=nil;