Browse Source

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

git-svn-id: trunk@7038 -
pierre 18 năm trước cách đây
mục cha
commit
3473faab07
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  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;