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

* Fixed fpc_shortstr_to_shortstr for arm.

Browse Source 
git-svn-id: trunk@10651 -
This commit is contained in:
yury 2008-04-13 16:17:14 +00:00
parent a27c5a8af5
commit 20a12503b8
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/arm.inc
View File

@ -326,7 +326,7 @@ procedure fpc_shortstr_to_shortstr(out res:shortstring;const sstr:shortstring);a
asm asm
ldrb r12,[r2],#1 ldrb r12,[r2],#1
cmp r12,r1 cmp r12,r1
movgt r1,r12 movgt r12,r1
strb r12,[r0],#1 strb r12,[r0],#1
cmp r12,#6 (* 6 seems to be the break even point. *) cmp r12,#6 (* 6 seems to be the break even point. *)
blt .LStartTailCopy blt .LStartTailCopy