Преглед на файлове

+ 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);