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

* format('%g',[0.0]) returned long format string, fixed

Browse Source
This commit is contained in:
florian 1999-09-04 20:48:34 +00:00
parent f7af47f31f
commit d2c3613518
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/sysstr.inc
View File

@ -917,7 +917,7 @@ Begin
Begin Begin
If (Precision = -1) Or (Precision > 15) Then Precision := 15; If (Precision = -1) Or (Precision > 15) Then Precision := 15;
TooSmall := Abs(Value) < 0.00001; TooSmall := (Abs(Value) < 0.00001) and (Value>0.0);
If Not TooSmall Then If Not TooSmall Then
Begin Begin
Str(Value:0:999, Result); Str(Value:0:999, Result);
@ -1139,7 +1139,10 @@ const
{ {
$Log$ $Log$
Revision 1.25 1999-08-25 13:13:58 michael Revision 1.26 1999-09-04 20:48:34 florian
* format('%g',[0.0]) returned long format string, fixed
Revision 1.25 1999/08/25 13:13:58 michael
fixed Formaterror, added missing raise fixed Formaterror, added missing raise
Revision 1.24 1999/08/16 22:38:53 peter Revision 1.24 1999/08/16 22:38:53 peter