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

* If ds_dwarf_cpp (C++ emulation) is enabled, add DW_AT_linkage_name attribute for methods.

Browse Source 
LLDB uses it to display fully qualified method names. Add a simple C++ mangled name without params to achieve at least "Class::Method()" instead of just "Method" in LLDB.

git-svn-id: trunk@40498 -
This commit is contained in:
yury 2018-12-07 20:55:50 +00:00
parent 1bde958889
commit ad269dedd4
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/dbgdwarf.pas
View File

@ -2265,7 +2265,7 @@ implementation
var var
procendlabel : tasmlabel; procendlabel : tasmlabel;
procentry : string; procentry,s : string;
cc : Tdwarf_calling_convention; cc : Tdwarf_calling_convention;
st : tsymtable; st : tsymtable;
vmtoffset : pint; vmtoffset : pint;
@ -2318,6 +2318,19 @@ implementation
append_entry(DW_TAG_subprogram,true, append_entry(DW_TAG_subprogram,true,
[DW_AT_name,DW_FORM_string,def.mangledname+#0]); [DW_AT_name,DW_FORM_string,def.mangledname+#0]);
if (ds_dwarf_cpp in current_settings.debugswitches) and (def.owner.symtabletype in [objectsymtable,recordsymtable]) then
begin
{ If C++ emulation is enabled, add DW_AT_linkage_name attribute for methods.
LLDB uses it to display fully qualified method names.
Add a simple C++ mangled name without params to achieve at least "Class::Method()"
instead of just "Method" in LLDB. }
s:=tabstractrecorddef(def.owner.defowner).objrealname^;
procentry:=Format('_ZN%d%s', [Length(s), s]);
s:=symname(def.procsym, false);
procentry:=Format('%s%d%sEv'#0, [procentry, Length(s), s]);
append_attribute(DW_AT_linkage_name,DW_FORM_string, [procentry]);
end;
append_proc_frame_base(list,def); append_proc_frame_base(list,def);
{ Append optional flags. } { Append optional flags. }