diff --git a/compiler/cfidwarf.pas b/compiler/cfidwarf.pas index cfb7e07fa3..1c33ff8349 100644 --- a/compiler/cfidwarf.pas +++ b/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;