|
|
@@ -26,10 +26,12 @@ unit dbgdwarf;
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
+ aasmtai,
|
|
|
DbgBase;
|
|
|
|
|
|
type
|
|
|
TDebugInfoDwarf=class(TDebugInfo)
|
|
|
+ procedure insertlineinfo(list:taasmoutput);override;
|
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
@@ -44,6 +46,81 @@ implementation
|
|
|
idtxt : 'DWARF';
|
|
|
);
|
|
|
|
|
|
+ procedure tdebuginfodwarf.insertlineinfo(list:taasmoutput);
|
|
|
+ begin
|
|
|
+ end;
|
|
|
+ {
|
|
|
+ var
|
|
|
+ currfileinfo,
|
|
|
+ lastfileinfo : tfileposinfo;
|
|
|
+ currfuncname : pstring;
|
|
|
+ currsectype : tasmsectiontype;
|
|
|
+ hlabel : tasmlabel;
|
|
|
+ hp : tai;
|
|
|
+ infile : tinputfile;
|
|
|
+ begin
|
|
|
+ FillChar(lastfileinfo,sizeof(lastfileinfo),0);
|
|
|
+ currfuncname:=nil;
|
|
|
+ currsectype:=sec_code;
|
|
|
+ hp:=Tai(list.first);
|
|
|
+ while assigned(hp) do
|
|
|
+ begin
|
|
|
+ case hp.typ of
|
|
|
+ ait_section :
|
|
|
+ currsectype:=tai_section(hp).sectype;
|
|
|
+ ait_function_name :
|
|
|
+ currfuncname:=tai_function_name(hp).funcname;
|
|
|
+ ait_force_line :
|
|
|
+ lastfileinfo.line:=-1;
|
|
|
+ end;
|
|
|
+
|
|
|
+ if (currsectype=sec_code) and
|
|
|
+ (hp.typ=ait_instruction) then
|
|
|
+ begin
|
|
|
+ currfileinfo:=tailineinfo(hp).fileinfo;
|
|
|
+ { file changed ? (must be before line info) }
|
|
|
+ if (currfileinfo.fileindex<>0) and
|
|
|
+ (lastfileinfo.fileindex<>currfileinfo.fileindex) then
|
|
|
+ begin
|
|
|
+ infile:=current_module.sourcefiles.get_file(currfileinfo.fileindex);
|
|
|
+ if assigned(infile) then
|
|
|
+ begin
|
|
|
+ objectlibrary.getlabel(hlabel,alt_dbgfile);
|
|
|
+ { emit stabs }
|
|
|
+ if (infile.path^<>'') then
|
|
|
+ list.insertbefore(Tai_stab.Create_str(stab_stabs,'"'+BsToSlash(FixPath(infile.path^,false))+'",'+tostr(n_includefile)+
|
|
|
+ ',0,0,'+hlabel.name),hp);
|
|
|
+ list.insertbefore(Tai_stab.Create_str(stab_stabs,'"'+FixFileName(infile.name^)+'",'+tostr(n_includefile)+
|
|
|
+ ',0,0,'+hlabel.name),hp);
|
|
|
+ list.insertbefore(tai_label.create(hlabel),hp);
|
|
|
+ { force new line info }
|
|
|
+ lastfileinfo.line:=-1;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ { line changed ? }
|
|
|
+ if (lastfileinfo.line<>currfileinfo.line) and (currfileinfo.line<>0) then
|
|
|
+ begin
|
|
|
+ if assigned(currfuncname) and
|
|
|
+ (tf_use_function_relative_addresses in target_info.flags) then
|
|
|
+ begin
|
|
|
+ objectlibrary.getlabel(hlabel,alt_dbgline);
|
|
|
+ list.insertbefore(Tai_stab.Create_str(stab_stabn,tostr(n_textline)+',0,'+tostr(currfileinfo.line)+','+
|
|
|
+ hlabel.name+' - '+{$IFDEF POWERPC64}'.'+{$ENDIF POWERPC64}currfuncname^),hp);
|
|
|
+ list.insertbefore(tai_label.create(hlabel),hp);
|
|
|
+ end
|
|
|
+ else
|
|
|
+ list.insertbefore(Tai_stab.Create_str(stab_stabd,tostr(n_textline)+',0,'+tostr(currfileinfo.line)),hp);
|
|
|
+ end;
|
|
|
+ lastfileinfo:=currfileinfo;
|
|
|
+ end;
|
|
|
+
|
|
|
+ hp:=tai(hp.next);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ }
|
|
|
+
|
|
|
+
|
|
|
initialization
|
|
|
RegisterDebugInfo(dbg_dwarf_info,TDebugInfoDwarf);
|
|
|
end.
|
florian