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

Jedi code format: better fix for issue #40871 error handling set definition with ranges.

Browse Source
This commit is contained in:
DomingoGP 2024-03-31 18:39:50 +02:00
parent 0fce9ec928
commit 8d91b18a79
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

@ -1699,10 +1699,8 @@ begin
Recognise([ttOpenBracket,ttOpenSquareBracket]);
RecogniseTypedConstant;
while (fcTokenList.FirstSolidTokenType = ttComma) do
while True do
begin
Recognise(ttComma);
RecogniseTypedConstant;
// range x..y
if fcTokenList.FirstSolidTokenType = ttDoubleDot then
@ -1710,6 +1708,9 @@ begin
Recognise(ttDoubleDot);
RecogniseTypedConstant;
end;
if (fcTokenList.FirstSolidTokenType <> ttComma) then
break;
Recognise(ttComma)
end;
Recognise([ttCloseBracket,ttCloseSquareBracket]);