Index: rtl/arm/arm.inc
===================================================================
--- rtl/arm/arm.inc	(Revision 10376)
+++ rtl/arm/arm.inc	(Arbeitskopie)
@@ -277,14 +277,15 @@
   tst r3,#7
   bne .Ldwordloop
 *)
+  sub r2, r2, #4
 .Ldwordloop:
-  sub r2,r2,#4
   ldr r3,[r0],#4
-  cmp r2,#4
+  subs r2, r2, #4
   str r3,[r1],#4
-  bcs .Ldwordloop
-  cmp r2,#0
+  bpl .Ldwordloop
+  cmp r2,#-4
   moveq pc,lr
+  add r2, r2, #4
 .Lbyteloop:
   subs r2,r2,#1
   ldrb r3,[r0],#1
