Fixed unittests that needed arch specific inline assembler.

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/laksen@39716 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 14 insertions, 0 deletions

diff --git a/riscv_new/tests/tbs/tb0072.pp b/riscv_new/tests/tbs/tb0072.pp
index 163bf7f71c..782cb05905 100644
--- a/riscv_new/tests/tbs/tb0072.pp
+++ b/riscv_new/tests/tbs/tb0072.pp
@@ -66,6 +66,13 @@ asm
   mov w3, y
 end;
 {$endif CPUAARCH64}
+{$ifdef CPURISCV64}
+{$define SUPPORTED}
+asm
+  addi a0, x, 0
+  addi a1, y, 0
+end;
+{$endif CPURISCV64}
 {$ifndef SUPPORTED}
 asm
 end;
diff --git a/riscv_new/tests/tbs/tb0193.pp b/riscv_new/tests/tbs/tb0193.pp
index 7f3d4c6d94..640089b4ea 100644
--- a/riscv_new/tests/tbs/tb0193.pp
+++ b/riscv_new/tests/tbs/tb0193.pp
@@ -63,6 +63,13 @@ end;
 end;
 {$define implemented}   
 {$endif cpuaarch64}
+{$ifdef cpuriscv64}
+.L1:
+  auipc a0,%pcrel_hi(stacksize)
+  ld a0, %pcrel_lo(.L1)(a0)
+end;
+{$define implemented}
+{$endif cpuriscv64}
 {$ifndef implemented}
  {$error This test does not supported this CPU}
 end;