paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 03:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for dwarf debug info generation of localsym vars with offset (thx Pierre for spotting this)

Browse Source 
git-svn-id: trunk@39104 -
This commit is contained in:
nickysn 2018-05-24 16:31:01 +00:00
parent 69fbf0e0d8
commit 76fb8c3afd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/dbgdwarf.pas
View File

@ -2533,14 +2533,14 @@ implementation
begin
templist.concat(tai_const.create_8bit(ord(DW_OP_breg0)+dreg));
templist.concat(tai_const.create_sleb128bit(sym.localloc.reference.offset+offset));
blocksize:=1+Lengthsleb128(sym.localloc.reference.offset);
blocksize:=1+Lengthsleb128(sym.localloc.reference.offset+offset);
end
else
begin
templist.concat(tai_const.create_8bit(ord(DW_OP_bregx)));
templist.concat(tai_const.create_uleb128bit(dreg));
templist.concat(tai_const.create_sleb128bit(sym.localloc.reference.offset));
blocksize:=1+Lengthuleb128(dreg)+LengthSleb128(sym.localloc.reference.offset);
templist.concat(tai_const.create_sleb128bit(sym.localloc.reference.offset+offset));
blocksize:=1+Lengthuleb128(dreg)+LengthSleb128(sym.localloc.reference.offset+offset);
end;
{$ifndef gdb_supports_DW_AT_variable_parameter}
{ Parameters which are passed by reference. (var and the like)