paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 06:59:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed debug information for call-by-reference parameters whose address

Browse Source 
is located in a register (mantis #22399)

git-svn-id: trunk@22176 -
This commit is contained in:
Jonas Maebe 2012-08-22 18:21:37 +00:00
parent 3754efa682
commit c8986f34fb
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/dbgdwarf.pas
View File

@ -2327,10 +2327,24 @@ implementation
LOC_FPUREGISTER,
LOC_CFPUREGISTER :
begin
templist.concat(tai_const.create_8bit(ord(DW_OP_regx)));
dreg:=dwarf_reg(sym.localloc.register);
templist.concat(tai_const.create_uleb128bit(dreg));
blocksize:=1+Lengthuleb128(dreg);
if (sym.localloc.loc in [LOC_REGISTER,LOC_CREGISTER]) and
(sym.typ=paravarsym) and
paramanager.push_addr_param(sym.varspez,sym.vardef,tprocdef(sym.owner.defowner).proccalloption) and
not(vo_has_local_copy in sym.varoptions) and
not is_open_string(sym.vardef) then
begin
templist.concat(tai_const.create_8bit(ord(DW_OP_bregx)));
templist.concat(tai_const.create_uleb128bit(dreg));
templist.concat(tai_const.create_uleb128bit(0));
blocksize:=1+Lengthuleb128(dreg)+Lengthuleb128(0);
end
else
begin
templist.concat(tai_const.create_8bit(ord(DW_OP_regx)));
templist.concat(tai_const.create_uleb128bit(dreg));
blocksize:=1+Lengthuleb128(dreg);
end;
end;
else
begin