paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 17:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

dbgllvm: struct_metadef fixes

Browse Source 
It will be used to hold a reference to the underlying structure of a class,
whose type is represented as a pointer to a DW_TAG_class_type for compatibility
with the debug information generated by the FPC backend (otherwise we could
instead just add a deref expression to all variables of such a type)
This commit is contained in:
Jonas Maebe 2022-06-07 21:13:57 +02:00
parent addd0e7dcf
commit 61f01ded61
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/llvm/dbgllvm.pas
View File

@ -94,7 +94,7 @@ interface
function def_meta_impl(def: tdef) : tai_llvmspecialisedmetadatanode;
function def_set_meta_impl(def: tdef; meta_impl: tai_llvmspecialisedmetadatanode): tai_llvmspecialisedmetadatanode;
function def_meta_class_struct(def: tobjectdef) : tai_llvmbasemetadatanode;
function def_meta_class_struct(def: tobjectdef) : tai_llvmspecialisedmetadatanode;
function def_meta_node(def: tdef): tai_llvmspecialisedmetadatanode;
function def_meta_ref(def: tdef): tai_simpletypedconst;
function file_getmetanode(moduleindex: tfileposmoduleindex; fileindex: tfileposfileindex): tai_llvmspecialisedmetadatanode;
@ -295,7 +295,7 @@ implementation
result^.HashSetItem.Data:=tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DIDerivedType);
if is_implicit_pointer_object_type(def) then
result^.struct_metadef:=tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DIDerivedType)
result^.struct_metadef:=tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DICompositeType)
else
result^.struct_metadef:=nil;
result^.implmetadef:=nil;
@ -413,9 +413,9 @@ implementation
result:=meta_impl;
end;
function TDebugInfoLLVM.def_meta_class_struct(def: tobjectdef): tai_llvmbasemetadatanode;
function TDebugInfoLLVM.def_meta_class_struct(def: tobjectdef): tai_llvmspecialisedmetadatanode;
begin
result:=tai_llvmbasemetadatanode(get_def_metatai(def)^.struct_metadef);
result:=tai_llvmspecialisedmetadatanode(get_def_metatai(def)^.struct_metadef);
end;
function TDebugInfoLLVM.def_meta_node(def: tdef): tai_llvmspecialisedmetadatanode;