Parcourir la source

Merged revisions 1446 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

r1446 (jonas)
* fixed missing digit when printing a double whose significant digits are
all before the floating point on a cpu/fpu supporting maximally double
precision
* fixed test in tw1792a for double precision fpu's (they can print one
digit less for double precision numbers than 80 bit fpu's)

git-svn-id: branches/fixes_2_0@1447 -

Jonas Maebe il y a 20 ans
Parent
commit
ed84492db9
2 fichiers modifiés avec 2 ajouts et 2 suppressions
  1. 1 1
      rtl/inc/real2str.inc
  2. 1 1
      tests/webtbs/tw1792a.pp

+ 1 - 1
rtl/inc/real2str.inc

@@ -41,7 +41,7 @@ type
       2: (cards: Array[0..1] of cardinal);
   end;
 const
-  maxDigits = 14;
+  maxDigits = 15;
 {$else}
 {$ifdef SUPPORT_SINGLE}
 type

+ 1 - 1
tests/webtbs/tw1792a.pp

@@ -14,7 +14,7 @@ Begin
 
 {$ifdef FPC_HAS_TYPE_DOUBLE}
  str(double(intpower(2,63)),s);
- if s<>' 9.223372036854776E+018' then
+ if s<>' 9.22337203685478E+018' then
    begin
      WriteLn(double(intpower(2,63)));
      halt(1);