Browse Source

* fix test for RiscV

git-svn-id: trunk@48914 -
florian 4 years ago
parent
commit
c603477ec4
1 changed files with 2 additions and 2 deletions
  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(70);
 s += chr(71);
+{$if not defined(cpuarm) and not defined(cpusparc) and not defined(cpuaarch64) and not defined(cpuriscv)}
 s += chr(72);
 s += chr(73);
 s += chr(74);
@@ -8193,7 +8194,6 @@ s += chr(85);
 s += chr(86);
 s += chr(87);
 s += chr(88);
-{$if not defined(cpuarm) and not defined(cpusparc) and not defined(cpuaarch64)}
 s += chr(89);
 s += chr(90);
 s += chr(65);
@@ -13077,7 +13077,7 @@ s += chr(80);
 s += chr(81);
 s += chr(82);
 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}
 writeln(s)
 END.