paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed DWARF debug info for powerpc64/linux, correcting the procedure entry symbol (must be the dotted symbol, not the function descriptor location, otherwise gdb cannot find locals

Browse Source 
git-svn-id: trunk@6242 -
This commit is contained in:
tom_at_work 2007-01-28 12:12:12 +00:00
parent e8050233af
commit a0813b42bf
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/dbgdwarf.pas
View File

@ -1491,6 +1491,7 @@ implementation
var var
procendlabel : tasmlabel; procendlabel : tasmlabel;
mangled_length : longint; mangled_length : longint;
procentry : String;
p : pchar; p : pchar;
hs : string; hs : string;
begin begin
@ -1514,7 +1515,12 @@ implementation
current_asmdata.getlabel(procendlabel,alt_dbgtype); current_asmdata.getlabel(procendlabel,alt_dbgtype);
current_asmdata.asmlists[al_procedures].insertbefore(tai_label.create(procendlabel),pd.procendtai); current_asmdata.asmlists[al_procedures].insertbefore(tai_label.create(procendlabel),pd.procendtai);
append_labelentry(DW_AT_low_pc,current_asmdata.RefAsmSymbol(pd.mangledname)); if (target_info.system = system_powerpc64_linux) then
procentry := '.' + pd.mangledname
else
procentry := pd.mangledname;
append_labelentry(DW_AT_low_pc,current_asmdata.RefAsmSymbol(procentry));
append_labelentry(DW_AT_high_pc,procendlabel); append_labelentry(DW_AT_high_pc,procendlabel);
(* (*