Pārlūkot izejas kodu

* fixed test for x86_64 which has a native comp type

florian 21 gadi atpakaļ
vecāks
revīzija
72cb65819a
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. 1 1
      tests/webtbs/tw2129.pp

+ 1 - 1
tests/webtbs/tw2129.pp

@@ -33,7 +33,7 @@ begin
   dbl1 := -1e-128;
   comp1 := comp(dbl1);
   str(comp1,s);
-{$ifdef cpui386}
+{$if defined(cpui386) or defined(cpux86_64)}
   if s<>'-6.53142228756617E+0018' then
 {$else cpui386}
   if s<>'-6531422287566170215' then