Explorar o código

* 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 %!s(int64=11) %!d(string=hai) anos
pai
achega
32b9926536
Modificáronse 1 ficheiros con 3 adicións e 1 borrados
  1. 3 1
      compiler/symdef.pas

+ 3 - 1
compiler/symdef.pas

@@ -3598,7 +3598,9 @@ implementation
 
     procedure tabstractrecorddef.check_forwards;
       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;
 
     function tabstractrecorddef.find_procdef_bytype(pt:tproctypeoption): tprocdef;