Selaa lähdekoodia

* fixed test for x86_64 which has a native comp type

florian 21 vuotta sitten
vanhempi
commit
72cb65819a
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  1. 1 1
      tests/webtbs/tw2129.pp

+ 1 - 1
tests/webtbs/tw2129.pp

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