paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 01:42:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: undo patch r62693 #d1b15edcfe, it broke some tests

Browse Source 
git-svn-id: trunk@63137 -
This commit is contained in:
mattias 2020-05-12 17:08:22 +00:00
parent 797768a965
commit 1c9deb7a4c
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/pascalparsertool.pas
View File

@ -6068,7 +6068,23 @@ begin
repeat
// read identifier (a parameter of the generic type)
Next;
ReadTypeReference( CreateChildNodes ); // May be a nested specialize structure
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
if AtomIsChar('>') then
break
else if CurPos.Flag=cafComma then begin