paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:22:30 +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]); Recognise([ttOpenBracket,ttOpenSquareBracket]);
RecogniseTypedConstant; while True do
while (fcTokenList.FirstSolidTokenType = ttComma) do
begin begin
Recognise(ttComma);
RecogniseTypedConstant; RecogniseTypedConstant;
// range x..y // range x..y
if fcTokenList.FirstSolidTokenType = ttDoubleDot then if fcTokenList.FirstSolidTokenType = ttDoubleDot then
@ -1710,6 +1708,9 @@ begin
Recognise(ttDoubleDot); Recognise(ttDoubleDot);
RecogniseTypedConstant; RecogniseTypedConstant;
end; end;
if (fcTokenList.FirstSolidTokenType <> ttComma) then
break;
Recognise(ttComma)
end; end;
Recognise([ttCloseBracket,ttCloseSquareBracket]); Recognise([ttCloseBracket,ttCloseSquareBracket]);