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

* fixed FloatToStrFIntl for platforms without extended

Browse Source 
git-svn-id: trunk@5920 -
This commit is contained in:
Jonas Maebe 2007-01-12 16:27:31 +00:00
parent f7da932aa4
commit d1c351462d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/sysutils/sysstr.inc
View File

@ -1095,8 +1095,10 @@ End;
const
{$ifdef FPC_HAS_TYPE_EXTENDED}
maxdigits = 17;
maxexplen = 4;
{$else}
maxdigits = 14;
maxexplen = 3;
{$endif}
Function FloatToStrFIntl(const Value; format: TFloatFormat; Precision, Digits: Integer; ValueType: TFloatValue; Const FormatSettings: TFormatSettings): String;
@ -1197,7 +1199,7 @@ Begin
If (Precision = -1) Or (Precision > maxdigits) Then Precision := maxdigits;
case ValueType of
fvDouble:
Str(Double(Extended(Value)):Precision+7, Result);
Str(Double(Extended(Value)):Precision+8, Result);
fvSingle:
Str(Single(Extended(Value)):Precision+6, Result);
fvCurrency:
@ -1222,7 +1224,10 @@ Begin
if P <> 0 then
begin
Inc(P, 2);
while (Result[P] = '0') and (Digits < 4) do
{ the exponent length is shorted if extended is not supported }
if (Digits > maxexplen) then
insert(copy('0000',1,Digits-maxexplen),Result,P);
while (Result[P] = '0') and (Digits < maxexplen) do
begin
System.Delete(Result, P, 1);
if P > Length(Result) then