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

* dwarf: Internal option to generate a LLDB compatible debug info. It is enabled for the Android targets.

Browse Source 
git-svn-id: trunk@34558 -
This commit is contained in:
yury 2016-09-23 15:51:55 +00:00
parent 89f7da58ea
commit c36faacd57
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/dbgdwarf.pas
View File

@ -338,6 +338,8 @@ interface
generated_lineinfo: boolean; generated_lineinfo: boolean;
vardatadef: trecorddef; vardatadef: trecorddef;
// Use various workarounds to make the debug info compatible with LLDB.
lldb_compatible: boolean;
procedure set_use_64bit_headers(state: boolean); procedure set_use_64bit_headers(state: boolean);
property use_64bit_headers: Boolean read _use_64bit_headers write set_use_64bit_headers; property use_64bit_headers: Boolean read _use_64bit_headers write set_use_64bit_headers;
@ -1041,6 +1043,10 @@ implementation
AbbrevSearchTree:=AllocateNewAiSearchItem; AbbrevSearchTree:=AllocateNewAiSearchItem;
vardatadef := nil; vardatadef := nil;
// Be LLDB compatible for Android
if target_info.system in systems_android then
lldb_compatible := true;
end; end;
@ -3166,6 +3172,7 @@ implementation
dbgname: string; dbgname: string;
vardatatype: ttypesym; vardatatype: ttypesym;
bind: tasmsymbind; bind: tasmsymbind;
lang: tdwarf_source_language;
begin begin
current_module.flags:=current_module.flags or uf_has_dwarf_debuginfo; current_module.flags:=current_module.flags or uf_has_dwarf_debuginfo;
storefilepos:=current_filepos; storefilepos:=current_filepos;
@ -3256,12 +3263,16 @@ implementation
{ address size } { address size }
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(sizeof(pint))); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(sizeof(pint)));
if lldb_compatible then
lang:=DW_LANG_C_plus_plus // Pascal is not supported by LLDB. Use C++
else
lang:=DW_LANG_Pascal83;
{ first manadatory compilation unit TAG } { first manadatory compilation unit TAG }
append_entry(DW_TAG_compile_unit,true,[ append_entry(DW_TAG_compile_unit,true,[
DW_AT_name,DW_FORM_string,relative_dwarf_path(current_module.sourcefiles.get_file(1).path+current_module.sourcefiles.get_file(1).name)+#0, DW_AT_name,DW_FORM_string,relative_dwarf_path(current_module.sourcefiles.get_file(1).path+current_module.sourcefiles.get_file(1).name)+#0,
DW_AT_producer,DW_FORM_string,'Free Pascal '+full_version_string+' '+date_string+#0, DW_AT_producer,DW_FORM_string,'Free Pascal '+full_version_string+' '+date_string+#0,
DW_AT_comp_dir,DW_FORM_string,BSToSlash(FixPath(GetCurrentDir,false))+#0, DW_AT_comp_dir,DW_FORM_string,BSToSlash(FixPath(GetCurrentDir,false))+#0,
DW_AT_language,DW_FORM_data1,DW_LANG_Pascal83, DW_AT_language,DW_FORM_data1,lang,
DW_AT_identifier_case,DW_FORM_data1,DW_ID_case_insensitive]); DW_AT_identifier_case,DW_FORM_data1,DW_ID_case_insensitive]);
{ reference to line info section } { reference to line info section }
@ -4094,8 +4105,15 @@ implementation
procedure TDebugInfoDwarf3.appenddef_formal(list:TAsmList;def: tformaldef); procedure TDebugInfoDwarf3.appenddef_formal(list:TAsmList;def: tformaldef);
begin begin
append_entry(DW_TAG_unspecified_type,false,[ if lldb_compatible then
]); begin
// Do not use DW_TAG_unspecified_type for LLDB to avoid LLDB crash.
// Call the inherited DWARF 2 implementation, which works fine.
inherited;
exit;
end;
append_entry(DW_TAG_unspecified_type,false,[]);
finish_entry; finish_entry;
end; end;