Browse Source

* fix longjmp for -Cparmv7m, resolves #22014

git-svn-id: trunk@21311 -
florian 13 years ago
parent
commit
c39d12a618
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/arm/setjump.inc

+ 1 - 1
rtl/arm/setjump.inc

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