Browse Source

Merged revisions 1105 via svnmerge from
/trunk

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

peter 20 năm trước cách đây
mục cha
commit
d8a8b0eeb3
1 tập tin đã thay đổi với 7 bổ sung0 xóa
  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;