Browse Source

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

Joost van der Sluis 3 years ago
parent
commit
3434d10968
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/cfidwarf.pas

+ 2 - 2
compiler/cfidwarf.pas

@@ -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;