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

FpDebug: PascalParser, fixed parsing float. In Pascal the comma is a list-separator. It can not be decimal-point. So using the locale "DecimalSeparor" will get wrong results.

Browse Source
This commit is contained in:
Martin 2021-12-09 17:37:03 +01:00
parent 4548d90a7f
commit 343eb4e47c
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/fpdebug/fppascalparser.pas
View File

@ -1874,7 +1874,7 @@ var
else begin
while TokenEndPtr^ in ['0'..'9'] do inc(TokenEndPtr);
// identify "2.", but not "[2..3]" // CurExpr.IsFloatAllowed
if (TokenEndPtr^ = DecimalSeparator) and (TokenEndPtr[1] <> '.') then begin
if (TokenEndPtr^ = '.') and (TokenEndPtr[1] <> '.') then begin
inc(TokenEndPtr);
while TokenEndPtr^ in ['0'..'9'] do inc(TokenEndPtr);
if TokenEndPtr^ in ['a'..'z', 'A'..'Z', '_'] then