paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 15:39:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ typed constants for dwarf

Browse Source 
git-svn-id: trunk@2387 -
This commit is contained in:
florian 2006-01-31 22:32:54 +00:00
parent c23b328f96
commit 8f9c450535
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/dbgdwarf.pas
View File

@ -1439,10 +1439,26 @@ implementation
{
paravarsym :
stabstr:=paravarsym_stabstr(tparavarsym(sym));
typedconstsym :
stabstr:=sym_stabstr_evaluate(sym,'"${name}:S$1",${N_STSYM},0,${line},${mangledname}',
[def_stab_number(ttypedconstsym(sym).typedconsttype.def)]);
}
typedconstsym :
begin
append_entry(DW_TAG_variable,false,[
DW_AT_name,DW_FORM_string,sym.name+#0,
{
DW_AT_decl_file,DW_FORM_data1,0,
DW_AT_decl_line,DW_FORM_data1,
}
DW_AT_external,DW_FORM_flag,true,
{ data continues below }
DW_AT_location,DW_FORM_block1,1+sizeof(aword)
]);
{ append block data }
asmlist[al_dwarf_info].concat(tai_const.create_8bit(3));
asmlist[al_dwarf_info].concat(tai_const.createname(sym.mangledname,AT_DATA,0));
append_labelentry_ref(DW_AT_type,def_dwarf_lab(ttypedconstsym(sym).typedconsttype.def));
finish_entry;
end;
constsym :
append_constsym(tconstsym(sym));
typesym :