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

* only write set elementdef information if there is an elementdef

Browse Source 
(can be absent for empty sets)

git-svn-id: trunk@10600 -
This commit is contained in:
Jonas Maebe 2008-04-03 19:31:09 +00:00
parent 618c2ee4f9
commit cd28ce9dfc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/dbgdwarf.pas
View File

@ -2763,7 +2763,8 @@ implementation
append_entry(DW_TAG_set_type,false,[ append_entry(DW_TAG_set_type,false,[
DW_AT_byte_size,DW_FORM_data2,def.size DW_AT_byte_size,DW_FORM_data2,def.size
]); ]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(def.elementdef)); if assigned(def.elementdef) then
append_labelentry_ref(DW_AT_type,def_dwarf_lab(def.elementdef));
end end
else else
begin begin