mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-27 10:52:50 +02:00
* replaced fstm/fldm with vstm/vldm for clang compatibility
git-svn-id: trunk@41136 -
This commit is contained in:
parent
9c3e9e80a3
commit
96b27765f0
@ -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}
|
||||
|
Loading…
Reference in New Issue
Block a user