paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 07:08:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@47051 -
This commit is contained in:
Mattias Gaertner 2020-10-05 14:48:19 +00:00
parent 301809cc4a
commit c4ab6b08cd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/pasresolver.pp
View File

@ -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)