소스 검색

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

git-svn-id: trunk@7038 -
pierre 18 년 전
부모
커밋
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);
             insertdef(TAsmList(arg),pd.returndef);
             if (po_virtualmethod in pd.procoptions) then
             if (po_virtualmethod in pd.procoptions) then
               insertdef(TAsmList(arg),pd._class);
               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;
       end;
       end;