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

* use append_object_struct also for dwarf-3 when creating dwarf debug info for objects, resolves #39920

Browse Source
This commit is contained in:
florian 2022-09-26 21:28:39 +02:00
parent 9375257365
commit 88cf633b97
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/dbgdwarf.pas
View File

@ -4236,10 +4236,7 @@ implementation
end;
odt_cppclass,
odt_object:
begin
dostruct(DW_TAG_structure_type);
doparent(false);
end;
append_object_struct(def,false,def.objname);
odt_interfacecom,
odt_interfacecorba,
odt_dispinterface:
@ -4250,8 +4247,6 @@ implementation
odt_helper,
odt_class:
begin
//dostruct(DW_TAG_class_type);
//doparent(false);
append_entry(DW_TAG_pointer_type,false,[]);
append_labelentry_ref(DW_AT_type,def_dwarf_class_struct_lab(def));
finish_entry;