From 2f31267ad00e3e01573c05b4200f285cb7d78f02 Mon Sep 17 00:00:00 2001 From: inoussa Date: Mon, 16 Nov 2009 09:21:37 +0000 Subject: [PATCH] Break in case of cycle in the object inheritance ( which should not happen ) git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1010 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- wst/trunk/ws_helper/generator.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/wst/trunk/ws_helper/generator.pas b/wst/trunk/ws_helper/generator.pas index 5e05fe21e..b75b2059e 100644 --- a/wst/trunk/ws_helper/generator.pas +++ b/wst/trunk/ws_helper/generator.pas @@ -3018,7 +3018,7 @@ begin clssTyp := TPasClassType(elt); if ( gnrClssLst.IndexOf(clssTyp) = -1 ) then begin objLst.Clear(); - while Assigned(clssTyp) do begin + while Assigned(clssTyp) and ( objLst.IndexOf(clssTyp) = -1 ) do begin objLst.Add(clssTyp); classAncestor := clssTyp.AncestorType; if Assigned(classAncestor) and classAncestor.InheritsFrom(TPasUnresolvedTypeRef) then begin