Merged revisions 1105 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@1134 -
This commit is contained in:
peter 2005-09-19 06:47:09 +00:00
parent dcd3180036
commit d8a8b0eeb3

View File

@ -5203,6 +5203,13 @@ implementation
function tobjectdef.getparentdef:tdef;
begin
{$warning TODO Remove getparentdef hack}
{ With 2 forward declared classes with the child class before the
parent class the child class is written earlier to the ppu. Leaving it
possible to have a reference to the parent class for property overriding,
but the parent class still has the childof not resolved yet (PFV) }
if childof=nil then
childof:=tobjectdef(childofderef.resolve);
result:=childof;
end;