paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 02:26:20 +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 -
(cherry picked from commit c4ab6b08cd)
This commit is contained in:
Mattias Gaertner 2020-10-05 14:48:19 +00:00 committed by Florian Klämpfl
parent 59a5bed833
commit 16886b5946
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; DestParams:=DestSpecializedFromItem.Params;
for i:=0 to length(SrcParams)-1 do for i:=0 to length(SrcParams)-1 do
begin begin
SrcParam:=SrcParams[i]; SrcParam:=ResolveAliasType(SrcParams[i]);
DestParam:=DestParams[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)