浏览代码

* fix test for RiscV

git-svn-id: trunk@48914 -
florian 4 年之前
父节点
当前提交
c603477ec4
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      tests/webtbs/tw2242.pp

+ 2 - 2
tests/webtbs/tw2242.pp

@@ -8124,6 +8124,7 @@ s += chr(68);
 s += chr(69);
 s += chr(69);
 s += chr(70);
 s += chr(70);
 s += chr(71);
 s += chr(71);
+{$if not defined(cpuarm) and not defined(cpusparc) and not defined(cpuaarch64) and not defined(cpuriscv)}
 s += chr(72);
 s += chr(72);
 s += chr(73);
 s += chr(73);
 s += chr(74);
 s += chr(74);
@@ -8193,7 +8194,6 @@ s += chr(85);
 s += chr(86);
 s += chr(86);
 s += chr(87);
 s += chr(87);
 s += chr(88);
 s += chr(88);
-{$if not defined(cpuarm) and not defined(cpusparc) and not defined(cpuaarch64)}
 s += chr(89);
 s += chr(89);
 s += chr(90);
 s += chr(90);
 s += chr(65);
 s += chr(65);
@@ -13077,7 +13077,7 @@ s += chr(80);
 s += chr(81);
 s += chr(81);
 s += chr(82);
 s += chr(82);
 s += chr(83);
 s += chr(83);
-{$endif cpuarm or cpusparc}
+{$endif not defined(cpuarm) and not defined(cpusparc) and not defined(cpuaarch64) and not defined(cpuriscv)}
 {$endif not fpc_pic}
 {$endif not fpc_pic}
 writeln(s)
 writeln(s)
 END.
 END.