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

Jedi code format: Fix issue #40981 inherited function calls.

Browse Source 
(cherry picked from commit b37e92de41)
This commit is contained in:
DomingoGP 2024-06-02 15:18:52 +02:00
parent 41db711cbc
commit a9137b980f
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2876,7 +2876,7 @@ begin
begin begin
Recognise(ttInherited); Recognise(ttInherited);
if not (fcTokenList.FirstSolidTokenType in Operators + [ttSemicolon]) then if not (fcTokenList.FirstSolidTokenType in Operators + BlockExitWords + [ttSemicolon, ttCloseBracket, ttComma]) then
begin begin
RecogniseDesignator; RecogniseDesignator;
if fcTokenList.FirstSolidTokenType = ttOpenBracket then if fcTokenList.FirstSolidTokenType = ttOpenBracket then

4
components/jcf2/Parse/Tokens.pas
View File

@ -367,6 +367,10 @@ const
ttWhile, ttFor, ttRepeat, ttUntil, ttWith, ttWhile, ttFor, ttRepeat, ttUntil, ttWith,
ttAsm, ttCase, ttInitialization, ttFinalization]; ttAsm, ttCase, ttInitialization, ttFinalization];
{ prior statement don't need ';' }
BlockExitWords: TTokenTypeSet = [ttTo, ttThen, ttElse, ttEnd, ttDo, ttUntil,
ttFinally, ttExcept, ttOtherwise];
PropertyDirectives: TTokenTypeSet = PropertyDirectives: TTokenTypeSet =
{ the basics } { the basics }
[ttRead, ttWrite, [ttRead, ttWrite,