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

Jedi Code Format: Support generics with "object" syntax better. Issue #40083, patch by Domingo Galmés.

Browse Source
This commit is contained in:
Juha 2023-01-06 15:33:06 +02:00
parent c051f85d6f
commit 3a2bd976df
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/jcf2/Parse/BuildParseTree.pas
View File

@ -4614,11 +4614,12 @@ end;
procedure TBuildParseTree.RecogniseObjHeritage; procedure TBuildParseTree.RecogniseObjHeritage;
begin begin
// ObjHeritage -> '(' QualId ')' // ObjHeritage -> '(' IdentList ')'
PushNode(nClassHeritage);
Recognise(ttOpenBracket); Recognise(ttOpenBracket);
RecogniseQualId; RecogniseHeritageList;
Recognise(ttCloseBracket); Recognise(ttCloseBracket);
PopNode;
end; end;
procedure TBuildParseTree.RecogniseConstructorHeading(const pbDeclaration: boolean); procedure TBuildParseTree.RecogniseConstructorHeading(const pbDeclaration: boolean);