فهرست منبع

Merged revisions 1105 via svnmerge from
/trunk

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

peter 20 سال پیش
والد
کامیت
d8a8b0eeb3
1فایلهای تغییر یافته به همراه7 افزوده شده و 0 حذف شده
  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;