Browse Source

+ apped end of symbol in TDebugInfoDwarf.afterappenddef

git-svn-id: branches/wasm@48510 -
nickysn 4 years ago
parent
commit
6f0a02a92d
1 changed files with 3 additions and 0 deletions
  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);