paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #2643

Browse Source
This commit is contained in:
Jonas Maebe 2003-10-26 16:56:44 +00:00
parent 1c902b4e69
commit c8e23c4e58
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/real2str.inc
View File

@ -165,9 +165,15 @@ const
{ round if we didn't use all available digits yet and if the }
{ remainder is > 5 }
if (overflow or
(stackPtr < maxDigits+1)) and
(trunc(intPartStack[stackPtr]-corrVal) > 5.0 - roundCorr) then
roundStr(temp,spos);
(stackPtr < maxDigits+1)) then
begin
{ we didn't use all available digits of the whole part -> make sure }
{ the fractional part is not used for rounding later }
currprec := -1;
{ instead, round based on the next whole digit }
if (trunc(intPartStack[stackPtr]-corrVal) > 5.0 - roundCorr) then
roundStr(temp,spos);
end;
{$ifdef DEBUG_NASM}
writeln(stderr,'temp at getintpart exit is = ',temp);
{$endif DEBUG_NASM}
@ -442,7 +448,10 @@ end;
{
$Log$
Revision 1.10 2003-09-06 17:06:59 florian
Revision 1.11 2003-10-26 16:56:44 jonas
* fixed web bug 2643
Revision 1.10 2003/09/06 17:06:59 florian
* fixed Nan and +Inf string
Revision 1.9 2003/09/06 16:48:35 florian