浏览代码

+ apped end of symbol in TDebugInfoDwarf.afterappenddef

git-svn-id: branches/wasm@48510 -
nickysn 4 年之前
父节点
当前提交
6f0a02a92d
共有 1 个文件被更改,包括 3 次插入0 次删除
  1. 3 0
      compiler/dbgdwarf.pas

+ 3 - 0
compiler/dbgdwarf.pas

@@ -2248,6 +2248,9 @@ implementation
       var
       var
         labsym : tasmsymbol;
         labsym : tasmsymbol;
       begin
       begin
+        { end of the symbol }
+        labsym:=def_dwarf_lab(def);
+        current_asmdata.asmlists[al_dwarf_info].concat(tai_symbol_end.Create(labsym));
         { create a derived reference type for pass-by-reference parameters }
         { create a derived reference type for pass-by-reference parameters }
         { (gdb doesn't support DW_AT_variable_parameter yet)               }
         { (gdb doesn't support DW_AT_variable_parameter yet)               }
         labsym:=def_dwarf_ref_lab(def);
         labsym:=def_dwarf_ref_lab(def);