Просмотр исходного кода

prepare source to also support riscv32 code

git-svn-id: trunk@43523 -
pierre 5 лет назад
Родитель
Сommit
247f80abfb
1 измененных файлов с 4 добавлено и 0 удалено
  1. 4 0
      rtl/linux/riscv64/si_prc.inc

+ 4 - 0
rtl/linux/riscv64/si_prc.inc

@@ -60,7 +60,11 @@ procedure _FPC_dynamic_proc_start; assembler; nostackframe; public name '_dynami
     .option norelax
 .L1:
     auipc t0, %pcrel_hi(dlexitproc)
+{$ifdef RISCV64}
     sd    a0, %pcrel_lo(.L1)(t0)
+{$else 32-bit code }
+    sw    a0, %pcrel_lo(.L1)(t0)
+{$endif}
     .option pop
 
     jal   x0, _FPC_proc_start