From 9e9b38d0cfc08bbc3c9aa873ba41441b9ea0afb7 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 29 Sep 2022 23:06:03 +0200
Subject: [PATCH]   * cfi for avr needs 32 bit pc begin and range

---
 compiler/cfidwarf.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/cfidwarf.pas b/compiler/cfidwarf.pas
index 4de56b4f6f..fe9ac7f612 100644
--- a/compiler/cfidwarf.pas
+++ b/compiler/cfidwarf.pas
@@ -470,7 +470,11 @@ implementation
                   current_asmdata.getlabel(curpos,alt_dbgframe);
                   list.concat(tai_label.create(curpos));
                   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));
+{$endif defined(avr)}
 
                   { we wrote a 'z' into the CIE augmentation data }
                   if datatype=dt_eh_frame then