* final fix of comp writing

rtl/inc/real2str.inc

@@ -80,9 +80,10 @@ begin
       end;
     rt_s64bit  :
       begin
-         maxlen:=24;
+         maxlen:=22;
          minlen:=9;
-         explen:=5;
+         { according to TP (was 5) (FK) }
+         explen:=6;
       end;
     end;
   { check parameters }
@@ -204,8 +205,11 @@ end;
 
 {
   $Log$
-  Revision 1.1  1998-03-25 11:18:43  root
-  Initial revision
+  Revision 1.2  1998-04-07 22:40:46  florian
+    * final fix of comp writing
+
+  Revision 1.1.1.1  1998/03/25 11:18:43  root
+  * Restored version
 
   Revision 1.7  1998/03/16 23:38:17  peter
     * fixed 0.997:0:2 bugs

rtl/inc/text.inc

@@ -461,12 +461,10 @@ End;
 Procedure w(fixkomma,Len : Longint;var t : TextRec;r : comp);[Public,Alias: 'WRITE_TEXT_COMP'];
 var
   s : String;
-  e : extended;
   L : longint;
 
 Begin
-  e:=r;
-  Str_real(Len,fixkomma,e,rt_s80real,s);
+  Str_real(Len,fixkomma,r,rt_s64bit,s);
   w(Len,t,s);
 End;
 {$endif comp_support}
@@ -906,7 +904,10 @@ End;
 
 {
   $Log$
-  Revision 1.3  1998-04-04 17:06:17  michael
+  Revision 1.4  1998-04-07 22:40:46  florian
+    * final fix of comp writing
+
+  Revision 1.3  1998/04/04 17:06:17  michael
   * fixed initialization bug in assign.
 
   Revision 1.2  1998/03/26 14:41:22  michael