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

Try to avoid problems with generic types for stabs/stabx

Browse Source 
git-svn-id: trunk@27635 -
This commit is contained in:
pierre 2014-04-22 21:28:45 +00:00
parent 9a40ff19a1
commit 356ea656e4
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/dbgbase.pas
View File

@ -527,7 +527,11 @@ implementation
begin begin
sym:=tsym(st.SymList[i]); sym:=tsym(st.SymList[i]);
if (sym.visibility<>vis_hidden) and if (sym.visibility<>vis_hidden) and
(not sym.isdbgwritten) then (not sym.isdbgwritten) and
{ avoid all generic symbols }
not (sp_generic_dummy in sym.symoptions) and
not ((sym.typ=typesym) and assigned(ttypesym(sym).typedef) and
(df_generic in ttypesym(sym).typedef.defoptions)) then
appendsym(list,sym); appendsym(list,sym);
end; end;
case st.symtabletype of case st.symtabletype of

2
compiler/dbgstabs.pas
View File

@ -187,6 +187,8 @@ implementation
result := Sym.Name result := Sym.Name
else else
result := Sym.RealName; result := Sym.RealName;
if (Sym.typ=typesym) and (ttypesym(Sym).Fprettyname<>'') then
result:=ttypesym(Sym).FPrettyName;
if target_asm.dollarsign<>'$' then if target_asm.dollarsign<>'$' then
result:=ReplaceForbiddenAsmSymbolChars(result); result:=ReplaceForbiddenAsmSymbolChars(result);
end; end;