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

Jedi Code Format: Fix parsing numbers. Issue #39926.

Browse Source
This commit is contained in:
Juha 2022-10-04 23:38:54 +03:00
parent 27dfc5b4cd
commit 545b37f413
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

@ -662,7 +662,7 @@ begin
ie one dat = decimal
two dots = end of number
}
lbFirstDigit := True;
lbFirstDigit := False;
while CharIsDigit(Current) or (Current = '.') or CharIsDigitSeparator(Current,lbFirstDigit) do
begin
lbFirstDigit := False;