paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-20 00:11:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed line info

Browse Source 
git-svn-id: trunk@2355 -
This commit is contained in:
florian 2006-01-28 16:43:52 +00:00
parent 8cd8e4ba8d
commit cac8dca3f8
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/dbgdwarf.pas
View File

@ -192,6 +192,7 @@ interface
function append_entry(tag : tdwarf_tag;has_children : boolean;data : array of const) : longint;
procedure append_labelentry(attr : tdwarf_attribute;sym : tasmsymbol);
procedure append_labelentry_ref(attr : tdwarf_attribute;sym : tasmsymbol);
procedure append_labelentry_data(attr : tdwarf_attribute;sym : tasmsymbol);
procedure finish_entry;
procedure finish_children;
@ -530,6 +531,18 @@ implementation
end;
procedure TDebugInfoDwarf.append_labelentry_data(attr : tdwarf_attribute;sym : tasmsymbol);
begin
asmlist[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(attr)));
{$ifdef cpu64bit}
asmlist[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_FORM_data8)));
{$else cpu64bit}
asmlist[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_FORM_data4)));
{$endif cpu64bit}
asmlist[al_dwarf_info].concat(tai_const.create_sym(sym));
end;
procedure TDebugInfoDwarf.finish_entry;
begin
asmlist[al_dwarf_abbrev].concat(tai_const.create_8bit(0));
@ -1197,6 +1210,13 @@ implementation
templist.concat(tai_symbol.createname('.Ldebug_abbrev0',AT_DATA,0));
asmlist[al_start].insertlist(templist);
templist.free;
{ insert .Ldebug_line0 label }
templist:=taasmoutput.create;
new_section(templist,sec_debug_line,'',0);
templist.concat(tai_symbol.createname('.Ldebug_line0',AT_DATA,0));
asmlist[al_start].insertlist(templist);
templist.free;
end;
@ -1239,11 +1259,15 @@ implementation
DW_AT_comp_dir,DW_FORM_string,''#0,
DW_AT_language,DW_FORM_data1,DW_LANG_Pascal83,
DW_AT_identifier_case,DW_FORM_data1,DW_ID_case_insensitive]);
{ reference to line info section }
append_labelentry_data(DW_AT_stmt_list,objectlibrary.newasmsymbol('.Ldebug_line0',AB_LOCAL,AT_DATA));
append_labelentry(DW_AT_low_pc,objectlibrary.newasmsymbol('.Ltext0',AB_LOCAL,AT_DATA));
append_labelentry(DW_AT_high_pc,objectlibrary.newasmsymbol('.Letext0',AB_LOCAL,AT_DATA));
finish_entry;
{ first write all global/local symbols. This will flag all required tdefs }
{ first write all global/local symbols. This will flag all required tdefs }
if assigned(current_module.globalsymtable) then
write_symtable_syms(asmlist[al_dwarf_info],current_module.globalsymtable);
if assigned(current_module.localsymtable) then