paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 19:02:05 +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; i: Integer;
SrcParam, DestParam: TPasType; SrcParam, DestParam: TPasType;
SrcParamScope, DestParamScope: TPasGenericScope; SrcParamScope, DestParamScope: TPasGenericScope;
SrcSpecializedFromItem, DestSpecializedFromItem: TPRSpecializedItem;
begin 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); exit(false);
// specialized from same generic -> check params // specialized from same generic -> check params
SrcParams:=SrcScope.SpecializedFromItem.Params; SrcParams:=SrcSpecializedFromItem.Params;
DestParams:=DestScope.SpecializedFromItem.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:=SrcParams[i];

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

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