paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 02:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cfi for avr needs 32 bit pc begin and range

Browse Source
This commit is contained in:
florian 2022-09-29 23:06:03 +02:00
parent 1fc54dd8bb
commit 9e9b38d0cf
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cfidwarf.pas
View File

@ -470,7 +470,11 @@ implementation
current_asmdata.getlabel(curpos,alt_dbgframe); current_asmdata.getlabel(curpos,alt_dbgframe);
list.concat(tai_label.create(curpos)); list.concat(tai_label.create(curpos));
list.concat(tai_const.Create_sym(hp.oper[0].beginsym)); list.concat(tai_const.Create_sym(hp.oper[0].beginsym));
{$if defined(avr)}
list.concat(tai_const.create_rel_sym(aitconst_32bit,hp.oper[0].beginsym,hp.oper[0].endsym));
{$else defined(avr)}
list.concat(tai_const.create_rel_sym(aitconst_ptr,hp.oper[0].beginsym,hp.oper[0].endsym)); list.concat(tai_const.create_rel_sym(aitconst_ptr,hp.oper[0].beginsym,hp.oper[0].endsym));
{$endif defined(avr)}
{ we wrote a 'z' into the CIE augmentation data } { we wrote a 'z' into the CIE augmentation data }
if datatype=dt_eh_frame then if datatype=dt_eh_frame then