Przeglądaj źródła

Merged revisions 1105 via svnmerge from
/trunk

git-svn-id: branches/fixes_2_0@1134 -

peter 20 lat temu
rodzic
commit
d8a8b0eeb3
1 zmienionych plików z 7 dodań i 0 usunięć
  1. 7 0
      compiler/symdef.pas

+ 7 - 0
compiler/symdef.pas

@@ -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;