Просмотр исходного кода

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

git-svn-id: trunk@7038 -
pierre 18 лет назад
Родитель
Сommit
3473faab07
1 измененных файлов с 4 добавлено и 0 удалено
  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;