paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 14:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Write Dwarf-debug info for class constants

Browse Source 
git-svn-id: trunk@16736 -
This commit is contained in:
joost 2011-01-08 14:11:05 +00:00
parent a318f1c91e
commit faeb80b55c
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/dbgdwarf.pas
View File

@ -351,6 +351,7 @@ interface
procedure appendsym_var_with_name_type_offset(list:TAsmList; sym:tabstractnormalvarsym; const name: string; def: tdef; offset: pint; const flags: tdwarfvarsymflags); procedure appendsym_var_with_name_type_offset(list:TAsmList; sym:tabstractnormalvarsym; const name: string; def: tdef; offset: pint; const flags: tdwarfvarsymflags);
{ used for fields and properties mapped to fields } { used for fields and properties mapped to fields }
procedure appendsym_fieldvar_with_name_offset(list:TAsmList;sym: tfieldvarsym;const name: string; def: tdef; offset: pint); procedure appendsym_fieldvar_with_name_offset(list:TAsmList;sym: tfieldvarsym;const name: string; def: tdef; offset: pint);
procedure appendsym_const_member(list:TAsmList;sym:tconstsym;ismember:boolean);
procedure beforeappendsym(list:TAsmList;sym:tsym);override; procedure beforeappendsym(list:TAsmList;sym:tsym);override;
procedure appendsym_staticvar(list:TAsmList;sym:tstaticvarsym);override; procedure appendsym_staticvar(list:TAsmList;sym:tstaticvarsym);override;
@ -1019,6 +1020,8 @@ implementation
appendsym_fieldvar(TAsmList(arg),tfieldvarsym(p)); appendsym_fieldvar(TAsmList(arg),tfieldvarsym(p));
propertysym: propertysym:
appendsym_property(TAsmList(arg),tpropertysym(p)); appendsym_property(TAsmList(arg),tpropertysym(p));
constsym:
appendsym_const_member(TAsmList(arg),tconstsym(p),true);
end; end;
end; end;
@ -2505,8 +2508,12 @@ implementation
finish_entry; finish_entry;
end; end;
procedure TDebugInfoDwarf.appendsym_const(list:TAsmList;sym:tconstsym); procedure TDebugInfoDwarf.appendsym_const(list:TAsmList;sym:tconstsym);
begin
appendsym_const_member(list,sym,false);
end;
procedure TDebugInfoDwarf.appendsym_const_member(list:TAsmList;sym:tconstsym;ismember:boolean);
var var
i, i,
size: aint; size: aint;
@ -2520,9 +2527,20 @@ implementation
if (sym.owner.symtabletype=parasymtable) then if (sym.owner.symtabletype=parasymtable) then
exit; exit;
append_entry(DW_TAG_variable,false,[ if ismember then
DW_AT_name,DW_FORM_string,symname(sym)+#0 append_entry(DW_TAG_member,false,[
]); DW_AT_name,DW_FORM_string,symname(sym)+#0,
{ The DW_AT_declaration tag is invalid according to the DWARF specifications.
But gcc adds this to static const members and gdb checks
for this flag. So we have to set it also.
}
DW_AT_declaration,DW_FORM_flag,true,
DW_AT_external,DW_FORM_flag,true
])
else
append_entry(DW_TAG_variable,false,[
DW_AT_name,DW_FORM_string,symname(sym)+#0
]);
{ for string constants, constdef isn't set because they have no real type } { for string constants, constdef isn't set because they have no real type }
case sym.consttyp of case sym.consttyp of
conststring: conststring: