mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-19 22:50:51 +02:00
Merged revisions 1105 via svnmerge from
/trunk git-svn-id: branches/fixes_2_0@1134 -
This commit is contained in:
parent
dcd3180036
commit
d8a8b0eeb3
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user