diff options
Diffstat (limited to 'compiler/dbgdwarf.pas')
-rw-r--r-- | compiler/dbgdwarf.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/dbgdwarf.pas b/compiler/dbgdwarf.pas index d6be6c70b7..4b8626bcd6 100644 --- a/compiler/dbgdwarf.pas +++ b/compiler/dbgdwarf.pas @@ -1683,8 +1683,8 @@ implementation procedure TDebugInfoDwarf.appenddef_array(list:TAsmList;def:tarraydef); var - size : aint; - elesize : aint; + size : PInt; + elesize : PInt; elestrideattr : tdwarf_attribute; labsym: tasmlabel; begin @@ -2461,14 +2461,14 @@ implementation { This is only a minimal change to at least be able to get a value in only one thread is present PM 2014-11-21, like for stabs format } templist.concat(tai_const.create_8bit(ord(DW_OP_addr))); - templist.concat(tai_const.Create_type_name(aitconst_ptr,sym.mangledname, + templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,sym.mangledname, offset+sizeof(pint))); blocksize:=1+sizeof(puint); end else begin templist.concat(tai_const.create_8bit(ord(DW_OP_addr))); - templist.concat(tai_const.Create_type_name(aitconst_ptr,sym.mangledname,offset)); + templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,sym.mangledname,offset)); blocksize:=1+sizeof(puint); end; end; @@ -2929,7 +2929,7 @@ implementation toasm : begin templist.concat(tai_const.create_8bit(3)); - templist.concat(tai_const.create_type_name(aitconst_ptr,sym.mangledname,0)); + templist.concat(tai_const.create_type_name(aitconst_ptr_unaligned,sym.mangledname,0)); blocksize:=1+sizeof(puint); end; tovar: |