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

Jedi code format: fix issue #40871 error handling a set with ranges, based on a patch from bytebites

Browse Source
This commit is contained in:
DomingoGP 2024-03-28 21:20:04 +01:00
parent 1ed2cf467c
commit a326522d93
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1704,6 +1704,12 @@ begin
begin begin
Recognise(ttComma); Recognise(ttComma);
RecogniseTypedConstant; RecogniseTypedConstant;
// range x..y
if fcTokenList.FirstSolidTokenType = ttDoubleDot then
begin
Recognise(ttDoubleDot);
RecogniseTypedConstant;
end;
end; end;
Recognise([ttCloseBracket,ttCloseSquareBracket]); Recognise([ttCloseBracket,ttCloseSquareBracket]);