Browse Source

* only write set elementdef information if there is an elementdef
(can be absent for empty sets)

git-svn-id: trunk@10600 -

Jonas Maebe 17 years ago
parent
commit
cd28ce9dfc
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/dbgdwarf.pas

+ 2 - 1
compiler/dbgdwarf.pas

@@ -2763,7 +2763,8 @@ implementation
               append_entry(DW_TAG_set_type,false,[
                 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
         else
           begin