瀏覽代碼

* don't check forwarddefs of copied record/objectdefs (there are none, since
such a def is just a renamed version of a def that's defined/implemented/
checked elsewhere) -- fixes compiler crash when compiling webtbs/tw3930
after r26332)

git-svn-id: trunk@26360 -

Jonas Maebe 11 年之前
父節點
當前提交
32b9926536
共有 1 個文件被更改,包括 3 次插入1 次删除
  1. 3 1
      compiler/symdef.pas

+ 3 - 1
compiler/symdef.pas

@@ -3598,7 +3598,9 @@ implementation
 
 
     procedure tabstractrecorddef.check_forwards;
     procedure tabstractrecorddef.check_forwards;
       begin
       begin
-        tstoredsymtable(symtable).check_forwards;
+        { the defs of a copied def are defined for the original type only }
+        if not(df_copied_def in defoptions) then
+          tstoredsymtable(symtable).check_forwards;
       end;
       end;
 
 
     function tabstractrecorddef.find_procdef_bytype(pt:tproctypeoption): tprocdef;
     function tabstractrecorddef.find_procdef_bytype(pt:tproctypeoption): tprocdef;