Преглед на файлове

* fix tw2129.pp for arm-wince.

git-svn-id: trunk@5947 -
yury преди 18 години
родител
ревизия
f5e645c80b
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      tests/webtbs/tw2129.pp

+ 2 - 2
tests/webtbs/tw2129.pp

@@ -32,9 +32,9 @@ var
 begin
   dbl1 := -1e-128;
   comp1 := comp(dbl1);
-{$ifdef cpuarm}
+{$ifdef FPC_DOUBLE_HILO_SWAPPED}
   comp1:=swap(comp1);
-{$endif cpuarm}
+{$endif FPC_DOUBLE_HILO_SWAPPED}
   str(comp1,s);
 {$if defined(cpui386) or defined(cpux86_64)}
   if s<>'-6.53142228756617E+0018' then