paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

dbgllvm: support for tobjectdef debug information

Browse Source 
Classes, objects, interfaces, Objective-C classes, ...
This commit is contained in:
Jonas Maebe 2022-06-07 21:16:09 +02:00
parent 61f01ded61
commit f382f2d6ed
1 changed files with 61 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
compiler/llvm/dbgllvm.pas
View File

@ -1424,24 +1424,72 @@ implementation
procedure TDebugInfoLLVM.appenddef_object(list: TAsmList; def: tobjectdef);
var
dinode: tai_llvmspecialisedmetadatanode;
dinode,
structdi,
inheritancedi: tai_llvmspecialisedmetadatanode;
fields: tai_llvmunnamedmetadatanode;
begin
inheritancedi:=nil;
fields:=tai_llvmunnamedmetadatanode.create;
if assigned(def.childof) then
begin
inheritancedi:=tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DIDerivedType);
list.concat(inheritancedi);
inheritancedi.addenum('tag','DW_TAG_inheritance');
if is_implicit_pointer_object_type(def) then
inheritancedi.addmetadatarefto('baseType',def_meta_class_struct(def.childof))
else
inheritancedi.addmetadatarefto('baseType',def_meta_node(def.childof));
{ Pascal only has public inheritance }
if def.objecttype<>odt_cppclass then
inheritancedi.addenum('flags','DIFlagPublic');
fields.addvalue(llvm_getmetadatareftypedconst(inheritancedi));
end;
if is_implicit_pointer_object_type(def) then
begin
dinode:=def_set_meta_impl(def,tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DIDerivedType));
dinode.addint64('tag',ord(DW_TAG_pointer_type));
dinode.addmetadatarefto('baseType',nil);
dinode.addenum('tag','DW_TAG_pointer_type');
structdi:=def_meta_class_struct(def);
list.concat(structdi);
structdi.addenum('tag','DW_TAG_class_type');
appenddef_struct_named(list,def,structdi,fields,def.objname^);
{ implicit pointer }
dinode.addmetadatarefto('baseType',structdi);
end
else
begin
dinode:=def_set_meta_impl(def,tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DICompositeType));
dinode.addint64('tag',ord(DW_TAG_structure_type));
if assigned(def.typesym) then
dinode.addstring('name',symname(def.typesym, false));
dinode.addqword('size',def.size*8);
end;
list.concat(dinode);
write_symtable_procdefs(current_asmdata.asmlists[al_dwarf_info],def.symtable);
else case def.objecttype of
odt_cppclass,
odt_object:
begin
dinode:=def_set_meta_impl(def,tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DICompositeType));
dinode.addenum('tag','DW_TAG_class_type');
appenddef_struct_named(list,def,dinode,fields,def.objname^);
end;
odt_objcclass:
begin
{ Objective-C class: same as regular class, except for
a) Apple-specific tag that identifies it as an Objective-C class
b) use extname^ instead of objname
}
dinode:=def_set_meta_impl(def,tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DICompositeType));
dinode.addenum('tag','DW_TAG_class_type');
dinode.addenum('runtimeLang','DW_LANG_ObjC');
appenddef_struct_named(list,def,dinode,fields,def.objextname^);
end;
odt_objcprotocol:
begin
dinode:=def_set_meta_impl(def,tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DIDerivedType));
dinode.addint64('tag',ord(DW_TAG_pointer_type));
dinode.addmetadatarefto('baseType',nil);
end;
else
internalerror(2022060710);
end;
list.concat(dinode);
if assigned(inheritancedi) then
inheritancedi.addmetadatarefto('scope',dinode);
write_symtable_procdefs(current_asmdata.asmlists[al_dwarf_info],def.symtable);
end;