mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 20:55:59 +02:00
Jedi Code Format: Support generics with "object" syntax better. Issue #40083, patch by Domingo Galmés.
This commit is contained in:
parent
c051f85d6f
commit
3a2bd976df
@ -4614,11 +4614,12 @@ end;
|
||||
|
||||
procedure TBuildParseTree.RecogniseObjHeritage;
|
||||
begin
|
||||
// ObjHeritage -> '(' QualId ')'
|
||||
|
||||
// ObjHeritage -> '(' IdentList ')'
|
||||
PushNode(nClassHeritage);
|
||||
Recognise(ttOpenBracket);
|
||||
RecogniseQualId;
|
||||
RecogniseHeritageList;
|
||||
Recognise(ttCloseBracket);
|
||||
PopNode;
|
||||
end;
|
||||
|
||||
procedure TBuildParseTree.RecogniseConstructorHeading(const pbDeclaration: boolean);
|
||||
|
Loading…
Reference in New Issue
Block a user