瀏覽代碼

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

Joost van der Sluis 3 年之前
父節點
當前提交
3434d10968
共有 1 個文件被更改,包括 2 次插入2 次删除
  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;