paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 10:21:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write objectdef fieldtypes in appenddef_object() instead of in

Browse Source 
beforeappenddef() to prevent endless loops in certain circular
    class reference situations (mantis #22527)

git-svn-id: trunk@22233 -
This commit is contained in:
Jonas Maebe 2012-08-24 16:52:46 +00:00
parent e17d1c9b37
commit eeb98ae2f8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/dbgstabs.pas
View File

@ -839,6 +839,7 @@ implementation
var var
oldtypesym : tsym; oldtypesym : tsym;
begin begin
tobjectdef(def).symtable.symList.ForEachCall(@field_write_defs,list);
{ classes require special code to write the record and the invisible pointer } { classes require special code to write the record and the invisible pointer }
if is_class(def) then if is_class(def) then
begin begin
@ -1080,7 +1081,6 @@ implementation
for i:=0 to anc.ImplementedInterfaces.Count-1 do for i:=0 to anc.ImplementedInterfaces.Count-1 do
appenddef(list,TImplementedInterface(anc.ImplementedInterfaces[i]).IntfDef); appenddef(list,TImplementedInterface(anc.ImplementedInterfaces[i]).IntfDef);
end; end;
tobjectdef(def).symtable.symList.ForEachCall(@field_write_defs,list);
end; end;
end; end;
end; end;