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

Jedi code format: fix bug formatting const arrays. Issue #41152

Browse Source
This commit is contained in:
DomingoGP 2024-09-22 19:17:59 +02:00
parent f5e83fae47
commit 708f754935
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1596,11 +1596,13 @@ begin
liBracketLevel := 0;
liMaxBracketLevel := 0;
liIndex := fcTokenList.CurrentTokenIndex;
// scan past the open bracket
while not (fcTokenList.SourceTokens[liIndex].TokenType in [ttOpenBracket,ttOpenSquareBracket]) do
// scan past the open brackets
while fcTokenList.SourceTokens[liIndex].TokenType in [ttOpenBracket,ttOpenSquareBracket] do
begin
Inc(liIndex);
Inc(liBracketLevel);
Inc(liMaxBracketLevel);
Inc(liBracketLevel);
Inc(liMaxBracketLevel);
end;
Inc(liIndex);
// look forward to find the first comma or semicolon