paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:19:16 +02: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 else
begin begin
Val(CurrentToken,X,C); Val(CurrentToken,X,C);
If (I=0) then If (C=0) then
Result:=TFPConstExpression.CreateFloat(X) Result:=TFPConstExpression.CreateFloat(X)
else else
ParserError(Format(SErrInvalidFloat,[CurrentToken])); ParserError(Format(SErrInvalidFloat,[CurrentToken]));