From 2370669f86159b28b796b419745367d0d09929a7 Mon Sep 17 00:00:00 2001 From: pierre Date: Tue, 12 Nov 2013 16:39:20 +0000 Subject: [PATCH] Avoid infinite recursion on generic classes for IDE browser git-svn-id: trunk@26068 - --- compiler/browcol.pas | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/browcol.pas b/compiler/browcol.pas index 8cc679daee..3a96878ccd 100644 --- a/compiler/browcol.pas +++ b/compiler/browcol.pas @@ -1673,6 +1673,8 @@ end; Symbol^.Flags:=(Symbol^.Flags or sfObject); if tobjectdef(typedef).objecttype=odt_class then 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); end; recorddef :