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

codetools: pascalreadertool: support TGenericClass<TypeReference,TypeReference>.TNestedClass (delphi mode)

Browse Source 
git-svn-id: trunk@51140 -
This commit is contained in:
ondrej 2016-01-02 22:14:28 +00:00
parent e0dca9c427
commit 90b92def4e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/pascalparsertool.pas
View File

@ -4101,6 +4101,7 @@ procedure TPascalParserTool.ReadTypeReference;
TButton
controls.TButton
TGenericClass<TypeReference,TypeReference>
TGenericClass<TypeReference,TypeReference>.TNestedClass
}
var SavePos: TAtomPosition;
begin
@ -4122,6 +4123,11 @@ begin
CurNode.LastChild := nil;
ReadSpecialize(True);
CurNode.EndPos := CurPos.EndPos;
while CurPos.Flag=cafPoint do begin
ReadNextAtom;
AtomIsIdentifierSaveE;
ReadNextAtom;
end;
end;
procedure TPascalParserTool.ReadClassInterfaceContent;