paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-06 09:49:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't check forwarddefs of copied record/objectdefs (there are none, since

Browse Source 
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 -
This commit is contained in:
Jonas Maebe 2014-01-02 16:21:06 +00:00
parent 1fc6316cbc
commit 32b9926536
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/symdef.pas
View File

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