Explorar o código

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

git-svn-id: trunk@47051 -
Mattias Gaertner %!s(int64=4) %!d(string=hai) anos
pai
achega
c4ab6b08cd
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  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;
     DestParams:=DestSpecializedFromItem.Params;
     for i:=0 to length(SrcParams)-1 do
     for i:=0 to length(SrcParams)-1 do
       begin
       begin
-      SrcParam:=SrcParams[i];
-      DestParam:=DestParams[i];
+      SrcParam:=ResolveAliasType(SrcParams[i]);
+      DestParam:=ResolveAliasType(DestParams[i]);
       if (SrcParam is TPasGenericTemplateType)
       if (SrcParam is TPasGenericTemplateType)
           or (DestParam is TPasGenericTemplateType)
           or (DestParam is TPasGenericTemplateType)
           or (SrcParam=DestParam)
           or (SrcParam=DestParam)