Browse Source

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

git-svn-id: trunk@46850 -
svenbarth 4 years ago
parent
commit
d1521e8061
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

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