paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 12:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix setjump for arm<=armv5 with vfp

Browse Source 
git-svn-id: trunk@22002 -
This commit is contained in:
florian 2012-08-03 22:04:22 +00:00
parent f52c55ea59
commit 291157330e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/arm/setjump.inc
View File

@ -19,6 +19,9 @@ function fpc_setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_S
{$if defined(FPUVFPV2) or defined(FPUVFPV3) or defined(FPUVFPV3_D16)} {$if defined(FPUVFPV2) or defined(FPUVFPV3) or defined(FPUVFPV3_D16)}
{$if defined(CPUARMV3) or defined(CPUARMV4) or defined(CPUARMV5)} {$if defined(CPUARMV3) or defined(CPUARMV4) or defined(CPUARMV5)}
fstmiax r0!, {d8-d15} fstmiax r0!, {d8-d15}
// according to the ARM Developer Suite Assembler Guide Version 1.2
// fstmiad increases the address register always by 2n+1 words, so fix this
sub r0,r0,#4
{$else} {$else}
fstmiad r0!, {d8-d15} fstmiad r0!, {d8-d15}
{$endif} {$endif}
@ -60,6 +63,9 @@ procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias
{$if defined(FPUVFPV2) or defined(FPUVFPV3) or defined(FPUVFPV3_D16)} {$if defined(FPUVFPV2) or defined(FPUVFPV3) or defined(FPUVFPV3_D16)}
{$if defined(CPUARMV3) or defined(CPUARMV4) or defined(CPUARMV5)} {$if defined(CPUARMV3) or defined(CPUARMV4) or defined(CPUARMV5)}
fldmiax ip!, {d8-d15} fldmiax ip!, {d8-d15}
// according to the ARM Developer Suite Assembler Guide Version 1.2
// increases fldmiax the address register always by 2n+1 words, so fix this
sub ip,ip,#4
{$else} {$else}
fldmiad ip!, {d8-d15} fldmiad ip!, {d8-d15}
{$endif} {$endif}