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

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

Browse Source 
(cherry picked from commit 3434d10968)
This commit is contained in:
Joost van der Sluis 2022-06-13 00:57:40 +02:00
parent ab5f200a61
commit f589acc8f7
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

@ -341,7 +341,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;
@ -377,7 +377,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;