소스 검색

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

(cherry picked from commit 3434d10968fc0c79be967abc5b36e98f0c013656)
Joost van der Sluis 3 년 전
부모
커밋
f589acc8f7
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  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;