浏览代码

* 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
 begin
   dbl1 := -1e-128;
   dbl1 := -1e-128;
   comp1 := comp(dbl1);
   comp1 := comp(dbl1);
-{$ifdef cpuarm}
+{$ifdef FPC_DOUBLE_HILO_SWAPPED}
   comp1:=swap(comp1);
   comp1:=swap(comp1);
-{$endif cpuarm}
+{$endif FPC_DOUBLE_HILO_SWAPPED}
   str(comp1,s);
   str(comp1,s);
 {$if defined(cpui386) or defined(cpux86_64)}
 {$if defined(cpui386) or defined(cpux86_64)}
   if s<>'-6.53142228756617E+0018' then
   if s<>'-6.53142228756617E+0018' then