Browse Source

* fixed debugging info for local type definitions

git-svn-id: trunk@6285 -
Jonas Maebe 18 years ago
parent
commit
a4a35ced37
1 changed files with 8 additions and 2 deletions
  1. 8 2
      compiler/dbgstabs.pas

+ 8 - 2
compiler/dbgstabs.pas

@@ -1030,12 +1030,18 @@ implementation
 
             { para types }
             if assigned(pd.parast) then
-              write_symtable_syms(templist,pd.parast);
+              begin
+                write_symtable_syms(templist,pd.parast);
+                write_symtable_defs(templist,pd.parast);
+              end;
             { local type defs and vars should not be written
               inside the main proc stab }
             if assigned(pd.localst) and
                (pd.localst.symtabletype=localsymtable) then
-              write_symtable_syms(templist,pd.localst);
+              begin
+                write_symtable_syms(templist,pd.localst);
+                write_symtable_defs(templist,pd.localst);
+              end;
 
             { after the endtai, because the ".size" must come before it }
             current_asmdata.asmlists[al_procedures].insertlistafter(pd.procendtai,templist);