From c603477ec4c19a62a35e5ca3036705ffe565a1dc Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 8 Mar 2021 17:12:19 +0000
Subject: [PATCH]   * fix test for RiscV

git-svn-id: trunk@48914 -
---
 tests/webtbs/tw2242.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/webtbs/tw2242.pp b/tests/webtbs/tw2242.pp
index e99f415321..7ea094d6f6 100644
--- a/tests/webtbs/tw2242.pp
+++ b/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.