Explorar o código

prepare source to also support riscv32 code

git-svn-id: trunk@43523 -
pierre %!s(int64=5) %!d(string=hai) anos
pai
achega
247f80abfb
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  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