瀏覽代碼

fcl-passrc: resolver: check class-is-class for specialization params forward class

git-svn-id: trunk@47051 -
Mattias Gaertner 4 年之前
父節點
當前提交
c4ab6b08cd
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/fcl-passrc/src/pasresolver.pp

+ 2 - 2
packages/fcl-passrc/src/pasresolver.pp

@@ -29729,8 +29729,8 @@ function TPasResolver.CheckClassIsClass(SrcType, DestType: TPasType): integer;
     DestParams:=DestSpecializedFromItem.Params;
     for i:=0 to length(SrcParams)-1 do
       begin
-      SrcParam:=SrcParams[i];
-      DestParam:=DestParams[i];
+      SrcParam:=ResolveAliasType(SrcParams[i]);
+      DestParam:=ResolveAliasType(DestParams[i]);
       if (SrcParam is TPasGenericTemplateType)
           or (DestParam is TPasGenericTemplateType)
           or (SrcParam=DestParam)