소스 검색

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)