Quellcode durchsuchen

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

(cherry picked from commit 3434d10968fc0c79be967abc5b36e98f0c013656)
Joost van der Sluis vor 3 Jahren
Ursprung
Commit
f589acc8f7
1 geänderte Dateien mit 2 neuen und 2 gelöschten Zeilen
  1. 2 2
      compiler/cfidwarf.pas

+ 2 - 2
compiler/cfidwarf.pas

@@ -341,7 +341,7 @@ implementation
         }
         }
         generate_initial_instructions(list);
         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));
         list.concat(tai_label.create(lenendlabel));
         lenstartlabel:=nil;
         lenstartlabel:=nil;
         lenendlabel:=nil;
         lenendlabel:=nil;
@@ -377,7 +377,7 @@ implementation
                 end;
                 end;
               DW_CFA_End_Frame :
               DW_CFA_End_Frame :
                 begin
                 begin
-                  list.concat(cai_align.create_zeros(4));
+                  list.concat(cai_align.create_zeros(sizeof(pint)));
                   list.concat(tai_label.create(lenendlabel));
                   list.concat(tai_label.create(lenendlabel));
                   lenstartlabel:=nil;
                   lenstartlabel:=nil;
                   lenendlabel:=nil;
                   lenendlabel:=nil;