paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 17:58:38 +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);
{$endif FPC_DOUBLE_HILO_SWAPPED}
str(comp1,s);
{$if defined(cpui386) or defined(cpux86_64)}
{$ifdef FPC_HAS_EXTENDED}
if s<>'-6.53142228756617E+0018' then
{$else cpui386}
{$else FPC_HAS_EXTENDED}
{ this constant has been verified and is correct (FK) }
{ doubles have slightly different precision on processors <> x86, because }
{ intermediate calculations are not performed in 80 bit there (JM) }
if Copy(s,1,Length(s)-1)<>'-653142228756617021' then
{$endif cpui386}
{$endif FPC_HAS_EXTENDED}
begin
writeln(s);
writeln('error');