paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 09:56:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test for win64; it doesn't have 80 bit floating point, even if it runs on a x86_64 processor

Browse Source 
git-svn-id: trunk@8042 -
This commit is contained in:
Vincent Snijders 2007-07-13 21:37:20 +00:00
parent e9b87792ac
commit 8527ed6a8d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw2129.pp
View File

@ -36,14 +36,14 @@ begin
comp1:=swap(comp1); comp1:=swap(comp1);
{$endif FPC_DOUBLE_HILO_SWAPPED} {$endif FPC_DOUBLE_HILO_SWAPPED}
str(comp1,s); str(comp1,s);
{$if defined(cpui386) or defined(cpux86_64)} {$ifdef FPC_HAS_EXTENDED}
if s<>'-6.53142228756617E+0018' then if s<>'-6.53142228756617E+0018' then
{$else cpui386} {$else FPC_HAS_EXTENDED}
{ this constant has been verified and is correct (FK) } { this constant has been verified and is correct (FK) }
{ doubles have slightly different precision on processors <> x86, because } { doubles have slightly different precision on processors <> x86, because }
{ intermediate calculations are not performed in 80 bit there (JM) } { intermediate calculations are not performed in 80 bit there (JM) }
if Copy(s,1,Length(s)-1)<>'-653142228756617021' then if Copy(s,1,Length(s)-1)<>'-653142228756617021' then
{$endif cpui386} {$endif FPC_HAS_EXTENDED}
begin begin
writeln(s); writeln(s);
writeln('error'); writeln('error');