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

+ Fixed error when printing zero. len was calculated wron.

Browse Source
This commit is contained in:
michael 1998-06-18 08:15:33 +00:00
parent 6a1ca57304
commit 6ed3f994e1
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/real2str.inc
View File

@ -101,7 +101,7 @@ begin
{ this is also the maximal number of decimals !!} { this is also the maximal number of decimals !!}
if f>currprec then f:=currprec; if f>currprec then f:=currprec;
{ when doing a fixed-point, we need less characters.} { when doing a fixed-point, we need less characters.}
if (f<0) or ((d>maxexp) or (d<minexp)) then if (f<0) or ( (d<>0) and ((d>maxexp) or (d<minexp))) then
begin begin
{ determine maximal number of decimals } { determine maximal number of decimals }
if (len>=0) and (len<minlen) then len:=minlen; if (len>=0) and (len<minlen) then len:=minlen;
@ -198,7 +198,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 1998-05-12 10:42:45 peter Revision 1.4 1998-06-18 08:15:33 michael
+ Fixed error when printing zero. len was calculated wron.
Revision 1.3 1998/05/12 10:42:45 peter
* moved getopts to inc/, all supported OS's need argc,argv exported * moved getopts to inc/, all supported OS's need argc,argv exported
+ strpas, strlen are now exported in the systemunit + strpas, strlen are now exported in the systemunit
* removed logs * removed logs