Browse Source

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

r1458 (jonas)
* fixed test for x86

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

Jonas Maebe 20 năm trước cách đây
mục cha
commit
f18e4aa664
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  1. 4 0
      tests/webtbs/tw1792a.pp

+ 4 - 0
tests/webtbs/tw1792a.pp

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