2
0
Эх сурвалжийг харах

* fix tw2129.pp for arm-wince.

git-svn-id: trunk@5947 -
yury 18 жил өмнө
parent
commit
f5e645c80b

+ 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