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

* Fix FItems: ^TArray<A>;

Browse Source 
git-svn-id: trunk@47501 -
(cherry picked from commit 988cd7235c)
This commit is contained in:
michael 2020-11-20 20:48:41 +00:00 committed by Florian Klämpfl
parent 6cd077060a
commit dd8f3f2bb1
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-passrc/src/pparser.pp
View File

@ -1798,7 +1798,14 @@ begin
else
break;
until false;
UngetToken;
if CurToken=tkLessThan then
begin
Repeat
NextToken; // We should do something with this.
Until CurToken=tkGreaterThan;
end
else
UngetToken;
Result.DestType:=ResolveTypeReference(Name,Result);
Engine.FinishScope(stTypeDef,Result);
ok:=true;

1
packages/fcl-passrc/tests/tcgenerics.pas
View File

@ -109,6 +109,7 @@ begin
Source.Add(' TSomeClass<T,T2> = Class(TObject)');
Source.Add(' b : T;');
Source.Add(' b2 : T2;');
Source.Add(' FItems: ^TArray<T>;');
Source.Add(' end;');
ParseDeclarations;
AssertNotNull('have generic definition',Declarations.Classes);