浏览代码

* check hierarchy of the current generic or specialization def independant of whether it's a record- or objectdef

Sven/Sarah Barth 3 年之前
父节点
当前提交
ec96d4242a
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/pgenutil.pas

+ 1 - 1
compiler/pgenutil.pas

@@ -1588,7 +1588,7 @@ uses
             i : longint;
             i : longint;
           begin
           begin
             result:=nil;
             result:=nil;
-            while assigned(def) and (def.typ in [recorddef,objectdef]) do
+            while assigned(def) do
               begin
               begin
                 if (df_generic in def.defoptions) and (def=genericdef) then
                 if (df_generic in def.defoptions) and (def=genericdef) then
                   begin
                   begin