Merged revisions 7038 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r7038 | pierre | 2007-03-30 23:34:55 +0200 (Fri, 30 Mar 2007) | 1 line
  
   + added generation of debugging infos of parast and localst for methods
........

git-svn-id: branches/fixes_2_2@7045 -

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;