|
@@ -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}
|