浏览代码

* write types declared in the interface section with a DW_AT_external tag, should resolve #40210

florian 2 年之前
父节点
当前提交
c8035f2cfb
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/dbgdwarf.pas

+ 2 - 0
compiler/dbgdwarf.pas

@@ -1894,6 +1894,8 @@ implementation
             append_entry(DW_TAG_typedef,false,[
               DW_AT_name,DW_FORM_string,symname(def.typesym, false)+#0
             ]);
+            if def.typesym.Owner.symtabletype=globalsymtable then
+              append_attribute(DW_AT_external,DW_FORM_flag,[true]);
             append_labelentry_ref(DW_AT_type,labsym);
             finish_entry;
             current_asmdata.asmlists[al_dwarf_info].concat(tai_symbol.create(labsym,0));