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

* fixed Nan and +Inf string

Browse Source
This commit is contained in:
florian 2003-09-06 17:06:59 +00:00
parent c9a6908a0f
commit eeca30ca30
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/real2str.inc
View File

@ -294,8 +294,8 @@ begin
if mantOne then if mantOne then
if sign then if sign then
temp := '-Inf' temp := '-Inf'
else temp := 'Inf' else temp := '+Inf'
else temp := 'NaN' else temp := 'Nan'
else else
begin begin
{ d:=abs(d); this converts d to double so we loose precision } { d:=abs(d); this converts d to double so we loose precision }
@ -442,7 +442,10 @@ end;
{ {
$Log$ $Log$
Revision 1.9 2003-09-06 16:48:35 florian Revision 1.10 2003-09-06 17:06:59 florian
* fixed Nan and +Inf string
Revision 1.9 2003/09/06 16:48:35 florian
* fixed real2str for -Inf and Inf * fixed real2str for -Inf and Inf
Revision 1.8 2003/05/16 23:22:31 jonas Revision 1.8 2003/05/16 23:22:31 jonas