paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 14:51:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r41136 into '.':

Browse Source 
U    rtl/arm/setjump.inc
--- Recording mergeinfo for merge of r41136 into '.':
 U   .

git-svn-id: branches/fixes_3_2@44365 -
This commit is contained in:
Jonas Maebe 2020-03-26 21:33:22 +00:00
parent d73b4e1e81
commit 8ef53e60e2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/arm/setjump.inc
View File

@ -23,7 +23,7 @@ function fpc_setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_S
// fstmiad increases the address register always by 2n+1 words, so fix this
sub r0,r0,#4
{$else}
fstmiad r0!, {d8-d15}
vstmia r0!, {d8-d15}
{$endif}
{$endif}
@ -70,7 +70,7 @@ procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias
it eq
moveq r0, #1
{$if defined(FPUVFPV2) or defined(FPUVFPV3) or defined(FPUVFPV4) or defined(FPUVFPV3_D16)}
fldmiad ip!, {d8-d15}
vldmia ip!, {d8-d15}
{$endif}
ldmia ip!, {v1-v6, sl, fp}
ldr sp, [ip]
@ -108,7 +108,7 @@ procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias
// increases fldmiax the address register always by 2n+1 words, so fix this
sub ip,ip,#4
{$else}
fldmiad ip!, {d8-d15}
vldmia ip!, {d8-d15}
{$endif}
{$endif}
ldmia ip,{v1-v6, sl, fp, sp, pc}