paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-14 09:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix floattostr in case decimalseparator differs from point

Browse Source
This commit is contained in:
michael 2018-04-11 07:13:59 +00:00
parent a75ff377bd
commit 8e325e7c49
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/rtl/sysutils.pas
View File

@ -1434,7 +1434,7 @@ Begin
Q := Length(Result);
while (Q > 0) and (Result[Q] = '0') do
Dec(Q);
if Result[Q] = DS then
if Result[Q] = '.' then
Dec(Q); { Remove trailing decimal point }
if (Q = 0) or ((Q=1) and (Result[1] = '-')) then
Result := '0'