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

fcl-passrc: fixed typecast TList<TBird> to TList<TEagle>

Browse Source 
git-svn-id: trunk@47039 -
This commit is contained in:
Mattias Gaertner 2020-10-03 13:19:46 +00:00
parent fdd3d163ff
commit 18f5fab782
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29715,12 +29715,19 @@ function TPasResolver.CheckClassIsClass(SrcType, DestType: TPasType): integer;
i: Integer;
SrcParam, DestParam: TPasType;
SrcParamScope, DestParamScope: TPasGenericScope;
SrcSpecializedFromItem, DestSpecializedFromItem: TPRSpecializedItem;
begin
if SrcScope.SpecializedFromItem.GenericEl<>DestScope.SpecializedFromItem.GenericEl then
SrcSpecializedFromItem:=SrcScope.SpecializedFromItem;
DestSpecializedFromItem:=DestScope.SpecializedFromItem;
if SrcSpecializedFromItem=nil then
exit(false);
if DestSpecializedFromItem=nil then
exit(false);
if SrcSpecializedFromItem.GenericEl<>DestSpecializedFromItem.GenericEl then
exit(false);
// specialized from same generic -> check params
SrcParams:=SrcScope.SpecializedFromItem.Params;
DestParams:=DestScope.SpecializedFromItem.Params;
SrcParams:=SrcSpecializedFromItem.Params;
DestParams:=DestSpecializedFromItem.Params;
for i:=0 to length(SrcParams)-1 do
begin
SrcParam:=SrcParams[i];

4
packages/fcl-passrc/tests/tcresolvegenerics.pas
View File

@ -1650,8 +1650,8 @@ begin
' B: TBird;',
' List: TList<TEagle>;',
'begin',
// ' List:=TList<Eagle>(B.Legs);',
// ' TList<Eagle>(B.Legs):=List;',
' List:=TList<TEagle>(B.Legs);',
' TList<TEagle>(B.Legs):=List;',
'',
'']);
ParseProgram;