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

* Fix formatfloat issue for certain precisions

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-09-01 22:25:23 +02:00
parent 1adc178690
commit 5dd3334858
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/rtl/sysutils.pas
View File

@ -1442,15 +1442,15 @@ var
GotNonZeroBeforeDot, BeforeDot : boolean;
begin
// Writeln('Precision ',Precision,' decimals: ',Decimals);
Result.Negative:=False;
Result.Exponent:=0;
For C:=0 to FloatRecDigits do
Result.Digits[C]:='0';
if Value=0 then
exit;
asm
Buffer=Value.toPrecision(21); // Double precision
end;
Str(Value:24,Buffer); // Double precision
// writeln('12345678901234567890123456789012345678901234567890');
// Writeln('Buffer :',Buffer);
N := 1;
L := Length(Buffer);
@ -1497,7 +1497,7 @@ begin
GotNonZeroBeforeDot := true;
end
else
Result.Digits[Outpos] := Buffer[N];
Result.Digits[Outpos-1] := Buffer[N];
Inc(outpos);
end;
Inc(N);
@ -1801,7 +1801,7 @@ var
begin
if Result>3 then
Raise Exception.Create('Invalid float format');
SP[Result]:=I+1;
SP[Result]:=I;
Inc(Result);
end;
end;
@ -1831,6 +1831,7 @@ var
begin
Len:=Length(Section);
// writeln(len);
I:=1;
InQuote:=False;
Q:=#0;
@ -1915,12 +1916,13 @@ var
else
begin
P:=MaxPrecision;
// Writeln(RequestedDigits,'-',DecimalPos,'+1');
D:=RequestedDigits-DecimalPos+1;
end;
FV:=FloatToDecimal(aValue,P,D);
// Writeln('Number of digits available : ',Length(FV.Digits));
// For p:=0 to Length(FV.Digits)-1 do
// Writeln(P,': ',FV.Digits[p]);
// For p:=0 to Length(FV.Digits)-1 do
// Writeln(P,': ',FV.Digits[p]);
DistToDecimal:=DecimalPos-1;
// Writeln('DistToDecimal : ',DistToDecimal);
if IsScientific then