浏览代码

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

git-svn-id: trunk@10600 -

Jonas Maebe 17 年之前
父节点
当前提交
cd28ce9dfc
共有 1 个文件被更改,包括 2 次插入1 次删除
  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