فهرست منبع

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)