paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 03:02:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* final fix of comp writing

Browse Source
This commit is contained in:
florian 1998-04-07 22:40:46 +00:00
parent 5466185e89
commit e18075dc19
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/real2str.inc
View File

@ -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

9
rtl/inc/text.inc
View File

@ -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