Browse Source

* fixed test

git-svn-id: trunk@8043 -
Vincent Snijders 18 years ago
parent
commit
d4f033bb78
1 changed files with 3 additions and 3 deletions
  1. 3 3
      tests/webtbs/tw2129.pp

+ 3 - 3
tests/webtbs/tw2129.pp

@@ -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);
-{$ifdef FPC_HAS_EXTENDED}
+{$ifdef FPC_HAS_TYPE_EXTENDED}
   if s<>'-6.53142228756617E+0018' then
   if s<>'-6.53142228756617E+0018' then
-{$else FPC_HAS_EXTENDED}
+{$else FPC_HAS_TYPE_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 FPC_HAS_EXTENDED}
+{$endif FPC_HAS_TYPE_EXTENDED}
     begin
     begin
       writeln(s);
       writeln(s);
       writeln('error');
       writeln('error');