paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 12:23:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #0034288, wrong check when converting floats

Browse Source 
git-svn-id: trunk@39758 -
This commit is contained in:
michael 2018-09-16 12:03:36 +00:00
parent 1602d3743c
commit 8307e46e4b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/fpexprpars.pp
View File

@ -1967,7 +1967,7 @@ begin
else
begin
Val(CurrentToken,X,C);
If (I=0) then
If (C=0) then
Result:=TFPConstExpression.CreateFloat(X)
else
ParserError(Format(SErrInvalidFloat,[CurrentToken]));