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

* fix longjmp for -Cparmv7m, resolves #22014

Browse Source 
git-svn-id: trunk@21311 -
This commit is contained in:
florian 2012-05-15 18:56:27 +00:00
parent b2813abec2
commit c39d12a618
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/arm/setjump.inc
View File

@ -49,7 +49,7 @@ 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)}
fldmiad ip!, {d8-d15} fldmiad ip!, {d8-d15}
{$endif} {$endif}
ldmia ip,{v1-v6, sl, fp} ldmia ip!, {v1-v6, sl, fp}
ldr sp, [ip] ldr sp, [ip]
add ip, ip, #4 add ip, ip, #4
ldr pc, [ip] ldr pc, [ip]