Quellcode durchsuchen

* fixed test

git-svn-id: trunk@8043 -
Vincent Snijders vor 18 Jahren
Ursprung
Commit
d4f033bb78
1 geänderte Dateien mit 3 neuen und 3 gelöschten Zeilen
  1. 3 3
      tests/webtbs/tw2129.pp

+ 3 - 3
tests/webtbs/tw2129.pp

@@ -36,14 +36,14 @@ begin
   comp1:=swap(comp1);
 {$endif FPC_DOUBLE_HILO_SWAPPED}
   str(comp1,s);
-{$ifdef FPC_HAS_EXTENDED}
+{$ifdef FPC_HAS_TYPE_EXTENDED}
   if s<>'-6.53142228756617E+0018' then
-{$else FPC_HAS_EXTENDED}
+{$else FPC_HAS_TYPE_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 FPC_HAS_EXTENDED}
+{$endif FPC_HAS_TYPE_EXTENDED}
     begin
       writeln(s);
       writeln('error');