Quellcode durchsuchen

* fixed test for x86_64 which has a native comp type

florian vor 21 Jahren
Ursprung
Commit
72cb65819a
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  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