paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 04:42:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: Improve parsing of recursive generics structures. Issue #34824

Browse Source 
git-svn-id: branches/fixes_2_0@62864 -
This commit is contained in:
mattias 2020-04-02 15:59:38 +00:00
parent 9f19d60293
commit e8353b7d83
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/pascalparsertool.pas
View File

@ -6035,23 +6035,7 @@ begin
repeat
// read identifier (a parameter of the generic type)
Next;
AtomIsIdentifierSaveE(20180411194303);
if CreateChildNodes then begin
CreateChildNode;
CurNode.Desc:=ctnSpecializeParam;
CurNode.EndPos:=CurPos.EndPos;
end;
Next;
while Curpos.Flag=cafPoint do begin
// first identifier was unitname, now read the type
Next;
AtomIsIdentifierSaveE(20180411194305);
if CreateChildNodes then
CurNode.EndPos:=CurPos.EndPos;
Next;
end;
if CreateChildNodes then
EndChildNode; // close ctnSpecializeParam
ReadTypeReference( CreateChildNodes ); // May be a nested specialize structure
if AtomIsChar('>') then
break
else if CurPos.Flag=cafComma then begin