paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-15 00:07:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another fix for precision

Browse Source
This commit is contained in:
peter 1999-11-03 09:54:24 +00:00
parent 8830a9fb4a
commit dd3688a927
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/inc/real2str.inc
View File

@ -41,14 +41,13 @@ const
var correct : longint; { Power correction }
currprec : longint;
il,roundcorr : Valreal;
il,il2,roundcorr : Valreal;
temp : string;
power : string[10];
sign : boolean;
i : integer;
dot : byte;
currp : pchar;
{ il : longint; caused overflows !! PM }
begin
case real_type of
rt_s32real :
@ -122,12 +121,13 @@ begin
correct:=0;
if d>=i10 then
begin
il:=10;
while (d>il) do
begin
il:=il*10;
inc(correct);
end;
il:=i1;
il2:=i10;
repeat
il:=il2;
il2:=il*i10;
inc(correct);
until (d<il2);
d:=d/il;
end
else
@ -234,7 +234,10 @@ end;
{
$Log$
Revision 1.16 1999-11-03 00:55:09 pierre
Revision 1.17 1999-11-03 09:54:24 peter
* another fix for precision
Revision 1.16 1999/11/03 00:55:09 pierre
* problem of last commit for large d values corrected
Revision 1.15 1999/11/02 15:05:53 peter