paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed debugging info for local type definitions

Browse Source 
git-svn-id: trunk@6285 -
This commit is contained in:
Jonas Maebe 2007-02-01 17:31:47 +00:00
parent 73c853757a
commit a4a35ced37
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/dbgstabs.pas
View File

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