Selaa lähdekoodia

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

(cherry picked from commit 3434d10968fc0c79be967abc5b36e98f0c013656)
Joost van der Sluis 3 vuotta sitten
vanhempi
commit
f589acc8f7
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      compiler/cfidwarf.pas

+ 2 - 2
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;