paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 07:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* a classrefdef might also be created with a forwarddef, so handle that correctly

Browse Source 
git-svn-id: trunk@46850 -
This commit is contained in:
svenbarth 2020-09-11 21:24:59 +00:00
parent af7008ee2f
commit d1521e8061
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -3901,7 +3901,7 @@ implementation
constructor tclassrefdef.create(def:tdef); constructor tclassrefdef.create(def:tdef);
begin begin
while tobjectdef(def).is_unique_objpasdef do while (def.typ=objectdef) and tobjectdef(def).is_unique_objpasdef do
def:=tobjectdef(def).childof; def:=tobjectdef(def).childof;
inherited create(classrefdef,def); inherited create(classrefdef,def);
if df_specialization in tstoreddef(def).defoptions then if df_specialization in tstoreddef(def).defoptions then