From 955e7c0175ede602f77b3229899e7400fc472dd4 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 3 Nov 1999 00:55:09 +0000
Subject: [PATCH]  * problem of last commit for large d values corrected

---
 rtl/inc/real2str.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/real2str.inc b/rtl/inc/real2str.inc
index e8f873a0df..54278a5382 100644
--- a/rtl/inc/real2str.inc
+++ b/rtl/inc/real2str.inc
@@ -41,14 +41,14 @@ const
 
 var correct : longint;  { Power correction }
     currprec : longint;
-    roundcorr : Valreal;
+    il,roundcorr : Valreal;
     temp : string;
     power : string[10];
     sign : boolean;
     i : integer;
     dot : byte;
     currp : pchar;
-    il : longint;
+    { il : longint; caused overflows !! PM }
 begin
   case real_type of
     rt_s32real :
@@ -234,7 +234,10 @@ end;
 
 {
   $Log$
-  Revision 1.15  1999-11-02 15:05:53  peter
+  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
     * better precisio by dividing only once with a calculated longint
       instead of multiple times by 10