From f589acc8f762080bf4292b8531a8b94a38f31fa9 Mon Sep 17 00:00:00 2001
From: Joost van der Sluis <joost@cnoc.nl>
Date: Mon, 13 Jun 2022 00:57:40 +0200
Subject: [PATCH]  * Fixed padding of CFI-structures on non-32bit architectures

(cherry picked from commit 3434d10968fc0c79be967abc5b36e98f0c013656)
---
 compiler/cfidwarf.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/cfidwarf.pas b/compiler/cfidwarf.pas
index 25d321457e..961d2cd7d8 100644
--- a/compiler/cfidwarf.pas
+++ b/compiler/cfidwarf.pas
@@ -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;