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

Jedi code format: minor refactoring suggested by Alexey Torgashin

Browse Source
This commit is contained in:
DomingoGP 2024-08-12 14:26:33 +02:00
parent 097eba8da1
commit 8590d1f811
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -504,7 +504,7 @@ begin
while ForwardChar(liCount)=NativeSingleQuote do while ForwardChar(liCount)=NativeSingleQuote do
Inc(liCount); Inc(liCount);
if (liCount>=3) and ((liCount and 1)= 1) then if (liCount>=3) and Odd(liCount) then
begin begin
liAux := liCount + 1; liAux := liCount + 1;
while ForwardChar(liAux) in NativeTabSpace do while ForwardChar(liAux) in NativeTabSpace do