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

* always immediately reset isdbgwritten for syms in the parasymtable,

Browse Source 
because they have to be written multiple times in case the procdef
    is also written multiple times (such as with DWARF on
    tf_dwarf_only_local_labels systems)

git-svn-id: trunk@14214 -
This commit is contained in:
Jonas Maebe 2009-11-18 22:31:08 +00:00
parent b495fbb991
commit 671f8a1d30
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/dbgbase.pas
View File

@ -426,9 +426,14 @@ implementation
for i:=0 to paras.Count-1 do
begin
sym:=tsym(paras[i]);
if (sym.visibility<>vis_hidden) and
(not sym.isdbgwritten) then
appendsym(list,sym);
if (sym.visibility<>vis_hidden) then
begin
appendsym(list,sym);
{ if we ever write this procdef again for some reason (this
can happen with DWARF), then we want to write all the
parasyms again as well. }
sym.isdbgwritten:=false;
end;
end;
end;