From ab79ccf2778aab5051076a6370ce676f48576e2f Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 12 Jan 2007 18:31:11 +0000
Subject: [PATCH]   * better fix than the one in r5920

git-svn-id: trunk@5926 -
---
 rtl/objpas/sysutils/sysstr.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index b8dc8507e2..d2ed5cd52f 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -1097,7 +1097,7 @@ const
   maxdigits = 17;
   maxexplen = 4;
 {$else}
-  maxdigits = 14;
+  maxdigits = 15;
   maxexplen = 3;
 {$endif}
 
@@ -1199,7 +1199,7 @@ Begin
         If (Precision = -1) Or (Precision > maxdigits) Then Precision := maxdigits;
         case ValueType of
           fvDouble:
-            Str(Double(Extended(Value)):Precision+8, Result);
+            Str(Double(Extended(Value)):Precision+7, Result);
           fvSingle:
             Str(Single(Extended(Value)):Precision+6, Result);
           fvCurrency: