Explorar o código

+ added generation of debugging infos of parast and localst for methods

git-svn-id: trunk@7038 -
pierre %!s(int64=18) %!d(string=hai) anos
pai
achega
3473faab07
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      compiler/dbgbase.pas

+ 4 - 0
compiler/dbgbase.pas

@@ -125,6 +125,10 @@ implementation
             insertdef(TAsmList(arg),pd.returndef);
             if (po_virtualmethod in pd.procoptions) then
               insertdef(TAsmList(arg),pd._class);
+            if assigned(pd.parast) then
+              write_symtable_defs(TAsmList(arg),pd.parast);
+            if assigned(pd.localst) then
+              write_symtable_defs(TAsmList(arg),pd.localst);
           end;
       end;