diff options
| author | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-10-05 14:48:19 +0000 |
|---|---|---|
| committer | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-10-05 14:48:19 +0000 |
| commit | 07ec21bb18447805040195a66434f60b04f325cb (patch) | |
| tree | 718d757491a1dedf020ec56081d8604f8e0f80bb /packages/fcl-passrc/src/pasresolver.pp | |
| parent | 532e3517c7fc3430a7d35d802123399a7757db1b (diff) | |
| download | fpc-07ec21bb18447805040195a66434f60b04f325cb.tar.gz | |
fcl-passrc: resolver: check class-is-class for specialization params forward class
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47051 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-passrc/src/pasresolver.pp')
| -rw-r--r-- | packages/fcl-passrc/src/pasresolver.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp index 39db0a54dc..fdcb37fa05 100644 --- a/packages/fcl-passrc/src/pasresolver.pp +++ b/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) |