paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 13:38:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added changes that didn't commit in merge 427

Browse Source
This commit is contained in:
Interferon 2023-06-18 16:54:34 -06:00 committed by florian
parent 4822daaa4f
commit 0c3c9982b9
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/riscv32/setjump.inc
View File

@ -19,6 +19,8 @@ function fpc_setjmp(var S : jmp_buf) : longint;[Public, alias : 'FPC_SETJMP'];co
sw ra, jmp_buf.ra(a0)
sw s0, jmp_buf.s0(a0)
sw s1, jmp_buf.s1(a0)
{$ifndef CPURV_HAS_16REGISTERS}
sw s2, jmp_buf.s2(a0)
sw s3, jmp_buf.s3(a0)
sw s4, jmp_buf.s4(a0)
@ -29,6 +31,7 @@ function fpc_setjmp(var S : jmp_buf) : longint;[Public, alias : 'FPC_SETJMP'];co
sw s9, jmp_buf.s9(a0)
sw s10, jmp_buf.s10(a0)
sw s11, jmp_buf.s11(a0)
{$endif CPURV_HAS_16REGISTERS}
sw sp, jmp_buf.sp(a0)
{$if defined(FPUFD) or defined(FPUD)}
@ -77,6 +80,7 @@ procedure fpc_longjmp(var S : jmp_buf;value : longint);[Public, alias : 'FPC_LON
lw ra, jmp_buf.ra(a0)
lw s0, jmp_buf.s0(a0)
lw s1, jmp_buf.s1(a0)
{$ifndef CPURV_HAS_16REGISTERS}
lw s2, jmp_buf.s2(a0)
lw s3, jmp_buf.s3(a0)
lw s4, jmp_buf.s4(a0)
@ -87,6 +91,7 @@ procedure fpc_longjmp(var S : jmp_buf;value : longint);[Public, alias : 'FPC_LON
lw s9, jmp_buf.s9(a0)
lw s10, jmp_buf.s10(a0)
lw s11, jmp_buf.s11(a0)
{$endif CPURV_HAS_16REGISTERS}
{$if defined(FPUFD) or defined(FPUD)}
lw sp, jmp_buf.fcsr(a0)

6
rtl/riscv32/setjumph.inc
View File

@ -16,7 +16,11 @@
type
jmp_buf = record
ra,s0,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,sp: dword;
ra,s0,s1
{$ifndef CPURV_HAS_16REGISTERS}
,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11
{$endif CPURV_HAS_16REGISTERS}
,sp: dword;
{$if defined(FPUFD) or defined(FPUD)}
fcsr,dummy : dword;
f8,f9,f18,f19,f20,f21,