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

Avoid infinite recursion on generic classes for IDE browser

Browse Source 
git-svn-id: trunk@26068 -
This commit is contained in:
pierre 2013-11-12 16:39:20 +00:00
parent 864a72ee69
commit 2370669f86
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/browcol.pas
View File

@ -1673,6 +1673,8 @@ end;
Symbol^.Flags:=(Symbol^.Flags or sfObject); Symbol^.Flags:=(Symbol^.Flags or sfObject);
if tobjectdef(typedef).objecttype=odt_class then if tobjectdef(typedef).objecttype=odt_class then
Symbol^.Flags:=(Symbol^.Flags or sfClass); Symbol^.Flags:=(Symbol^.Flags or sfClass);
if tobjectdef(typedef).objecttype=odt_class then
if not(df_generic in typedef.defoptions) then
ProcessSymTable(Symbol,Symbol^.Items,tobjectdef(typedef).symtable); ProcessSymTable(Symbol,Symbol^.Items,tobjectdef(typedef).symtable);
end; end;
recorddef : recorddef :