pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Break in case of cycle in the object inheritance ( which should not happen )

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1010 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-11-16 09:21:37 +00:00
parent f7642d12d1
commit 2f31267ad0
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/ws_helper/generator.pas
View File

@ -3018,7 +3018,7 @@ begin
clssTyp := TPasClassType(elt); clssTyp := TPasClassType(elt);
if ( gnrClssLst.IndexOf(clssTyp) = -1 ) then begin if ( gnrClssLst.IndexOf(clssTyp) = -1 ) then begin
objLst.Clear(); objLst.Clear();
while Assigned(clssTyp) do begin while Assigned(clssTyp) and ( objLst.IndexOf(clssTyp) = -1 ) do begin
objLst.Add(clssTyp); objLst.Add(clssTyp);
classAncestor := clssTyp.AncestorType; classAncestor := clssTyp.AncestorType;
if Assigned(classAncestor) and classAncestor.InheritsFrom(TPasUnresolvedTypeRef) then begin if Assigned(classAncestor) and classAncestor.InheritsFrom(TPasUnresolvedTypeRef) then begin